Mega Code Archive

 

Categories / Delphi / Forms

 

Formun üzerinde herhangi bir nesnenin taşınması

Procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); const sc_DragMove=$F012; begin ReleaseCapture; Button1.Perform(WM_SYSCOMMAND, sc_DragMove, 0); end;