Form mit gedrückter Maustaste verschieben

[taktaky]

Hallo,

wie kann ich das Form mit gedrückter Maustaste verschieben?

Man kann das Form mit gedrückter Maustaste auf die Titel-Leiste verschieben, diese möchte ich aber ausblenden.

Gruß

[edit=SirThornberry]Titel korrigiert - Mfg, SirThornberry[/edit]

[dominikkv]

klick oder klick

[Matze]

Den Code dafür gibt's sogar in der Code-Library, ergänzend dazu.

[taktaky]

Hallo zusammen

Vielen Dank! :thumb:
Der 2. Link ist besser, da der Code kurzer ist

Delphi-Quellcode:

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

[edit=SirThornberry]überdimensionierten, unnötigen Text entfernt - Mfg, SirThornberry[/edit]