Mega Code Archive

 

Categories / Delphi / Forms

 

Move components on a form

Title: Move components on a form Question: How can I move components on a form? Answer: { moves misc. components on a form, e.g. TButton, TLabel, etc. put the call in the components OnMouseDown-Eventhandler; Example: MoveObject(Sender, X, Y); uses Windows, Messages; procedure MoveObject(Sender: TObject; X, Y: Integer); const SC_DragMove = $F012; begin ReleaseCapture; (Sender as TControl).Perform(WM_SysCommand, SC_DragMove, 0); end;