Mauposition auf beweglichem Image ermitteln

[Dunkelbunt27]

PointToStr hab ich

Delphi-Quellcode:

function PointToStr(aPoint: TPoint): string;               //Point in String umwandeln
begin
  Result := Format('X: %d | Y: %d',[aPoint.X, aPoint.Y]);   // Format wandelt um
  // %d = Dezimal,         Standardgerüst: %[Index:][-][Width][.Precision]Type
end;

ScreenToClient hilft mir anscheinend noch nicht weiter. Ich denke OnMouseDown wird funktionieren.