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