Formular beim klick auf Komponente verschieben?

[Adrian112]

Hallo,

ich habe ein kreisrundes Formular mit einer LMD Uhr drauf, ich will jetzt dafür sorgen, dass wenn man auf die Uhr klickt (Form geht ja nicht weils komplett verdeckt wird) und die Maus bewegt, das Form mitbewegt wird. Wie geht das?

[DeddyH]

Such mal nach SC_DRAGMOVE, dann findest Du z.B. dies hier.

[Adrian112]

Danke es funkt !!!

[RavenIV]

Ich hab das so gelöst:

Delphi-Quellcode:

procedure TMainForm.MyClockMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const
  SC_DragMove = $F012;
begin
  ReleaseCapture;
  Perform (WM_SysCommand, SC_DragMove, 0);
end;

/Edit: so was, da war wohl jemand schneller :-(