Forms Delphi

  1. Home
  2. Delphi
  3. Forms
  4. 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;