Form ohne Titelleiste verschieben

[iNvIcTUs oRCuS]

Inspiriert davon was bereits DNA im VB Thread schrieb...
Hier die Lösung wenn man sowas mal in Delphi coden will.

[code=Delphi]ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);[/code]

Das wars auch schon... Bleibt mir nur noch zu sagen das diese 2 Zeilen Code im OnMouseDown Ereignis eingefügt werden müssen.

grEEtZ Don Krawallo

[ABartX]

bei lazarus funktioniert das so offenbar nicht. hier eine lösung die ich gefunden habe, und bei mir auch funktioniert hat:

Code:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; SendMessage(Form1.Handle, WM_SYSCOMMAND, $F012, 0); end;

---

zu beachten ist, dass so nur die form selbst verschoben werden kann!


greetz ABartX

[iNvIcTUs oRCuS]

Ist eigentlich dasselbe, nur die Schreibweise ist anders.

[maluc]

[code=delphi]SendMessage(hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0);[/code]

[iNvIcTUs oRCuS]

Stimmt... An die Möglichkeit hat ich garnicht gedacht...