Bildname aus TImage auslesen

[neolithos]

Wenn du das TImage eh dynamisch erstellst dann Leide es doch einfach ab und füge die Eigenschaft hinzu.

Delphi-Quellcode:

TMyImage = class (TImage)
private 
  sFileName : String;
public
  procedure LoadImage(asFileName  : String);
  
  property FileName : String read sFileName;
end;


procedure TMyImage.LoadImage(asFileName  : String);
begin
  Picture.LoadFromFile(asFileName);
  sFileName := asFileName;
end;

SO ungefähr...