Mouse - mover componentes como no ide do delphi

Top  Previous  Next

Movendo componentes em runtime igual no form designer do Delphi

 

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

const

  SC_Move = $F012;

begin

  ReleaseCapture;

  (Sender as TWinControl).Perform(WM_SYSCOMMAND, SC_MOVE, 0);

end;