Moin Weazy,
oder, in etwas aufwändigerer Form:
Du erstellst Dir selber eine Klasse, die um den Dateinamen ergänzt wird.
Einfaches Beispiel (ungetestet):
Delphi-Quellcode:
interface
type
TMyImage = class(TImage)
private
FsFilename : string;
public
constructor Create(AOwner : TComponent);
procedure LoadFromFile(const Filename: string);
property Filename : string read FsFilename;
end;
implementation
constructor TMyImage.Create;
begin
inherited;
FsFilename := '';
end;
procedure TMyImage.LoadFromFile(const Filename: string);
begin
self.Picture.Bitmap.LoadFromFile(Filename);
FsFilename := Filename;
end;