Мне надо сделать что-то типа полосы прокрутки, не используя разных дополнительных компонентов, причем чтобы она была не похожа на стандартную виндовую. Для этого использую TImage (бегунок) и панель. Перемещаю имидж по панели следующим способом:

void __fastcall TShell::Image2MouseDown(TObject *Sender,
     TMouseButton Button, TShiftState Shift, int X, int Y)
{
if (Button == mbLeft)
  {
   ReleaseCapture ();
   SendMessage (Image2->Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);
  }
}

Тут все нормально. А вот как мне в зависимости от положения Image2 перемещать другие объекты на форме? Да, я могу переместить их после того, как отпустил кнопку мыши, но мне надо отслеживать их положение в реальном времени, когда мой "бегунок" находится в процессе перемещения.
Итак, надо либо перемещать нужные мне объекты в режиме реального времени либо придумать другой способ перемещать бегунок (без SendMessage). Может быть есть какие-то идеи?

Сделай TPanel (без Aligna только) и ставь ему top равный коэффициенту "прокрученности" твоего имага.

Да, придется сделать этот самый коэффициент (0 - начало, 100 - самый низ, например) глобальной переменной или в сообщиния его припахивать.

Да я в принципе так и делаю. Это понятно, не ясно другое: пока я перемещаю этот имидж, объекты, которые должны перемещаться в зависимости от его положения, остаются на месте. Как я отпустил имидж, они скакнули в нужную точку. А мне хочется, чтобы это происходило плавно, по мере перемещения имиджа.

Сделай глобальный bool, в OnMouseDown ставь его, в OnMouseUp снимай. Напиши OnMouseMove и проверяй там этот буль. Если он true - выставляй top равный коэффициенту.

Спасибо, попробую...

К сожалению, не работает. Видимо SendMessage все перебивает...