Ich nehm mal an, du erstellst deine Images innerhalb deiner Komponente dynamisch. Also irgendwo muss sowas stehen wie:
img := TImage.create (Self) ;
Dies muss du noch etwas ausbauen, damit du nachher noch weisst, was welches Image ist:
Delphi-Quellcode:
img := TImage.create (Self) ;
with img do begin
Tag := index ; // index ist deine Zählvariable ;
index := index + 1 ;
OnClick := MeinOnClick ;
end ;
Tag dient später dazu, dein geklicktes Image zu identifizieren. Dies geschieht in der MeinOnClick Methode, welche du als privat in deiner Komponentenklasse deklarierst, wie folgt:
Delphi-Quellcode:
TMeineKompo = class
private
procedure MeinOnClick (Sender : TObject) ;
...
end ;
procedure TMeineKompo.MeinOnClick (Sender : TObject) ;
var
img : TImage ;
begin
if Sender is TImage then begin
img := Sender as TImage ;
case Tag of
1: ; // erstes dynamisch erzeugtes Image wurde geklickt
end ;
end ;
end ;