Button mit Maus verschieben

[Mazel]

Hallo,

also wesentlich einfacher geht es so, wenn ich dein Bedürfnis richtig verstanden habe:

Delphi-Quellcode:

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  //Fängt alle Mausereignisse ab
  ReleaseCapture;
  // mit TWinCotrol verschieben, $F012 verschiebt den Button
  TWinControl(Sender).Perform(WM_SYSCOMMAND, $F012, 0);
end;

Gruß
Mazel