Fenster verschieben?

[DeddyH]

Du machst ja auch zuviel des Guten

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  DeltaX := X;
  DeltaY := Y;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if ssLeft in Shift then
    begin
      Left := Left + X - DeltaX;
      Top := Top + Y - DeltaY;
    end;
end;

Das genügt. Du darfst bei dem Ganzen nicht übersehen, dass X und Y relativ zum Formular angegeben werden und nicht relativ zum Bildschirm.