ClienttoScreen und Co.

[negaH]

Delphi-Quellcode:

var
  P: TPoint; 
begin 
  if ssLeft in Shift then 
  begin 
    P := ClientToScreen(Point(X, Y)); 
    Top  := P.X - X; // <--
    Left := P.Y - Y; 
  end; 
end;

Gruß Hagen