dynamische Timage onclick

[r2c2]

Hallo simonko
das geht eigentlich ganz einfach:

Delphi-Quellcode:

procedure MyImageClick(Sender: TObject);
begin
  with Sender as TImage do
  begin
    ShowMessage(Name);
    //oder
    if Tag = 25 then
      DoSomething;
    //oder mach was anderes mit deinem Bild
  end;
end;

...

form1.bild[i].OnClick := MyImageClick(Sender: TObject);

mfg

Christian