Etwas einfacher, schon im Forum Diskutiert:
Delphi-Quellcode:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = (mbRight) then
begin
ReleaseCapture;
Self.Perform(WM_SYSCOMMAND, SC_MOVE, 0);
end;
end;
...
...