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**

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

dies hier.

Danke es funkt !!!

**RavenIV**

Ich hab das so gelöst:

markieren

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

Formular beim klick auf Komponente verschieben?

Formular beim klick auf Komponente verschieben?

Re: Formular beim klick auf Komponente verschieben?

Re: Formular beim klick auf Komponente verschieben?

Re: Formular beim klick auf Komponente verschieben?

Forumregeln

Adrian112 (Gast) n/a Beiträge	#1 Formular beim klick auf Komponente verschieben? 10. Jul 2007, 13:46 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?
	Zitat

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.540 Beiträge Delphi 11 Alexandria	#2 Re: Formular beim klick auf Komponente verschieben? 10. Jul 2007, 14:00 Such mal nach SC_DRAGMOVE, dann findest Du z.B. dies hier. Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

Adrian112 (Gast) n/a Beiträge	#3 Re: Formular beim klick auf Komponente verschieben? 10. Jul 2007, 14:01 Danke es funkt !!!
	Zitat