[ dejov @ 09.09.2004. 15:03 ] @
Cilj je da dinamicki kreiram onoliko komponenti Timage koje su napunjene zeljenom slikom koliko korisnik trazi. Imena tih slika su a1, a2, a3... E sada cilj je da se obradi i njihov dogadjaj onclick, tako da klikom na sliku on daje informaciju koja slika je kliknuta. Znaci izlazi poruka npr: "kliknuli ste na sliku a3"
Kako?


[ morlic @ 09.09.2004. 15:27 ] @
Nadovezujem se na odgovor koji ti je neor dao na prethodno pitanje.

Code:

procedure TForm1.PozoviMeNaKlik(Sender: TObject);
begin
    if Sender is TImage then
        With (Sender as TImage) do
           begin
              ShowMessage('Kliknuli ste na sliku: ' + Name);
           end  
end;