Author: Misha Moellner
Move components on a form during runtime
Answer:
Moves misc. components on a form, e.g. TButton, TLabel, etc. Put the call in the
components OnMouseDown-Eventhandler;
1 Example: MoveObject(Sender, X, Y);
2 3 uses4 Windows, Messages;
5 6 procedure MoveObject(Sender: TObject; X, Y: Integer);
7 const8 SC_DragMove = $F012;
9 begin10 ReleaseCapture;
11 (Sender as TControl).Perform(WM_SysCommand, SC_DragMove, 0);
12 end;