Button verschieben.

[deusmac]

Ich habe eine Form mit einem Button. Nun würde ich gerne das man den Button auf der Form mit der Maus hin und herschieben kann. Wie stell ich das am Besten an?

[Nikolas]

Du könntest dur im onMouseDown die Mauskoordinaten merken und dann im OnMouseMove dir die Bewegung relativ zum Anfangsort errechnen und danach Left und Top aktualisieren.

[nailor]

und beim mouseup und vor allem beim verlassen des fensters (!) damit aufhören. beim verlassen des fensters nach rechts bzw unten natürlich schon früher, und entsprechend nach links/oben, wenn man recht oder in der mitte oder so des buttons geklickt hat.

[Nothine]

oder du machst es so, dann besteht nicht mal mehr die chance aus dem fenster rauszukommen, und funktioniert auch wunderbar

Delphi-Quellcode:

procedure TFormX.ButtonMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(Button.Handle,WM_SysCommand,$f012,0);
end;