Wo befindet sich die Grafik in der TImage?

[Uwe Raabe]

TImage hat eine function DestRect, die das effektive Rechteck der Grafik liefert. Die ist zwar protected, aber mit einem class helper kommt man da sehr einfach ran:

Delphi-Quellcode:

type
  TImageHelper = class helper for TImage
  private
    function GetGraphicPos: TPoint;
  public
    property GraphicPos: TPoint read GetGraphicPos;
  end;

function TImageHelper.GetGraphicPos: TPoint;
begin
  Result := DestRect.Location;
end;

...
var
  P: TPoint;
begin
...
  P := Image1.GraphicPos;
...