ClienttoScreen und Co.

[negaH]

Delphi-Quellcode:

var 
  P: TPoint; 
begin 
  if not (ssLeft in Shift) then FWasMouseDown := False else
    if not FWasMouseDown then
    begin
      FLastPos := Point(X, Y);
      FWasMouseDown := True;
    end else
    begin
      Top  := Top + (FLastPos.X - X); // <-- 
      Left := Left + (FLastPos.Y - Y); 

      FLastPos := Point(X, Y);
    end; 
end;

FWasMouseDown: Boolean und FLastPos: TPoint musste als private Felder in dein TForm deklarieren.

Gruß Hagen