Hallo, folgender Code bewirkt ein Verschieben eines Forms durch die Mouse:
Delphi-Quellcode:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Button <> mbLeft
then Exit;
//wenn nicht linke Maustaste, dann nix machen
ReleaseCapture;
SendMessage(
Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);
end;