Ein Fenster an beliebiger Stelle verschieben

[StefanDP]

ich hab das mal so gemacht:

Delphi-Quellcode:

var
  x_, y_: Integer;

...

procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Shift = [ssLeft] then
  begin
    Form1.Left := Mouse.CursorPos.X - x_;
    Form1.Top := Mouse.CursorPos.Y - y_;
  end;
end;

procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  x_ := X;
  y_ := Y;
end;

ist zwar auch nciht die sauberste methode, aber es funzt