Form mit der Maustaste bewegen!

[Luckie]

Delphi-Quellcode:

var
  Form1: TForm1;
  m    : TPoint;
  d    : Boolean = False;

implementation

{$R *.dfm}



procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = (mbRight) then
  begin
    d := True;
    m.x := x;
    m.y := y;
  end;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if not d then Exit;
  Form1.Left := Form1.Left + x - m.x;
  Form1.Top := Form1.Top + y - m.y;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  d := False;
end;