Form zur Laufzeit verschieben bei BorderStyle: bsNone?

[gmarts]

Hast du auch ganz unten gelesen?:

Zitat:

Um ein Formular ohne Titelleiste noch mit der Maus verschieben zu können, muß man diesem einen Klick auf die (nicht vorhandene) Titelzeile vorgaukeln, wenn der Anwender auf eine beliebige Stelle im Formular klickt. Dazu fügt man folgenden Code in die "OnMouseDown"-Methode des Formulars ein:

Delphi-Quellcode:

if ssLeft in Shift then begin
  ReleaseCapture;
  Self.Perform(WM_NCLBUTTONDOWN, HTCAPTION, varEmpty);
end;

Wenn das Form eine Titelleiste hat, funktioniert das natürlich auch.