Maus darf Image nicht verlassen

[_frank_]

nein, das with ändert nur die werte X und y
OffsetRect ist eine eigenständige Funktion, (auch wenn ich die jetzt in der hilfe nicht gefunden habe).

kannst also so schreiben:

Delphi-Quellcode:

var p:TPoint;

p:=Image.ClientOrigin;
OffsetRect(r,p.x,p.y);

HTH Frank