Не перемещается компонент мышкой

[artemavd]

Всем добрый день!
После моего длительного отсутствия на данном форуме, я вернулся к вам и вернулся с таким вопросом
У меня не срабатывает код, который должен перемещать мышкой динамически созданную панельку.
Я написал 3 процедуры в основной форме:

...
  private
    { Private declarations }
  public
    procedure GN(Sender: TObject);
    procedure MouseD(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure MouseM(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure MouseU(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    { Public declarations }
  end;

var
  MouseDownSpot: TPoint;
  Capturing: Bool;

procedure TMainForm.MouseD(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 SetCapture(TWinControl(ActiveControl).Handle);
 Capturing:=True;
 MouseDownSpot.X:=x;
 MouseDownSpot.Y:=y;
end;

procedure TMainForm.MouseM(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if Capturing then
 begin
  TWinControl(ActiveControl).Left:=TWinControl(ActiveControl).Left - (MouseDownSpot.X - x);
  TWinControl(ActiveControl).Top:=TWinControl(ActiveControl).Top - (MouseDownSpot.Y - y);
 end;
end;

procedure TMainForm.MouseU(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if Capturing then
 begin
  ReleaseCapture;
  Capturing:=False;
  TWinControl(ActiveControl).Left:=TWinControl(ActiveControl).Left - (MouseDownSpot.X - x);
  TWinControl(ActiveControl).Top:=TWinControl(ActiveControl).Top - (MouseDownSpot.Y - y);
 end;
end;

Созданной панельке я программно присваиваю эти процедуры:

 ...
  OnMouseDown:=MainForm.MouseD;
  OnMouseMove:=MainForm.MouseM;
  OnMouseUp:=MainForm.MouseU;
 ...

Использовал TWinControl(ActiveControl), т.к. мне надо перемещать активную панельку. Любую выбранную панельку.
Однако данный код не срабатывает и панелька не двигается. А мне всего-то надо, чтобы она перемещалась мышкой, как в DesignTime, но только в RunTime.

Прошу помочь и подсказать мне, почему не работает мой код. Да, кстати, если это важно, то панельки создаются на компоненте ScrollBox.

[Stilet]

Отладку проводит? Бряки ставил?

[Аватар]

Замени везде ActiveControl на Sender. ActiveControl - зачем он там?

[artemavd]

Аватар, спасибо огромное, заработало!
А почему с Sender заработало?

[Аватар]

Потому что в Sender указатель на панель, а нажатие мышью на панели не делает её активным контролом. В AciveControl указатель на контрол с фокусом ввода если он есть

[raxp]

DW и этого достаточно, чтобы тягать панельку:

procedure TForm1.Panel2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
  SC_DRAGMOVE = $F012;
begin
  ReleaseCapture;
  Panel2.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;

Пример работы: http://www.youtube.com/watch?v=yTEDvM99he0

[Человек_Борща]

Есть халява, притом более работоспособная: TMoveControl на просторах гугл-кода. Ещё есть компонент в пакете Cindy, забыл как классназывается, вроде TcyRunTimeResizer.

[raxp]

...а в чем выражена эта более работоспособность халявы?