Fenster verschieben: Form1.top ins Minus

[DeddyH]

Wenn man die neue Position selbst berechnet, dann geht es. Ich habe mir dazu 2 private Variablen deklariert (OldX und OldY):

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
    begin
      OldX := X;
      OldY := Y;
    end;
end;

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