Delphi-PRAXiS - Delphi Formular beim klick auf Komponente verschieben?

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi Formular beim klick auf Komponente verschieben? (https://www.delphipraxis.net/95614-formular-beim-klick-auf-komponente-verschieben.html)

Adrian112

10. Jul 2007 13:46

Formular beim klick auf Komponente verschieben?

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

10. Jul 2007 14:00

Re: Formular beim klick auf Komponente verschieben?

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

dies hier.

Adrian112

10. Jul 2007 14:01

Re: Formular beim klick auf Komponente verschieben?

Danke es funkt !!!

RavenIV

10. Jul 2007 14:07

Re: Formular beim klick auf Komponente verschieben?

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 :-(

Alle Zeitangaben in WEZ +1. Es ist jetzt 10:41 Uhr.