Form ohne Titelleiste verschieben

[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