Bewegen von forms ohne Titlebar

[Matze]

Vergiss die Kompo und hör auf den guten alten Matze

So geht das von SirThornberry:

Delphi-Quellcode:

procedure TForm1.Form1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (Button = mbLeft) then
  begin
    Application.ProcessMessages;
    ReleaseCapture;
    Perform(WM_SYSCommand, $F012, 0);
  end;
end;