Name von Dyn. generiertem Image auf einem Dyn. gener. Panel

[himitsu]

Fast:

Code:

[b]Procedure[/b] TForm1.Panel1Click(Sender: TObject);
  [b]Begin[/b]
    Caption := TImage([color=red]Sender[/color].Controls[0]).Name;
  [b]End[/b];

Code:

[color=gray]Objekt[/color].ComponentCount [color=midnightblue]{Anzahl der untergeordneten Komponenten}[/color]
[color=gray]Objekt[/color].Components[x]  [color=midnightblue]{eine der untergeordneten Komponenten}[/color]