Name einer Komponente herausfinden

[Christian Seehase]

Moin Logic,

Du könntest bei jedem Image in der Eigenschaft Tag die Adresse eines Strings speichern, der wiederum den Namen des Bildes enthält.

Beispiel:

Delphi-Quellcode:

var
  sPicName : string = 'Name des Bildes';

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Tag := integer(sPicName);
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
  ShowMessage(string((Sender as TImage).Tag));
end;

[EDIT]
ImageClick verallgemeinert
[/EDIT]