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?
09.09.2004. u 15:03
morlic Milos Orlic Beograd
Moderator Član broj: 6081 Poruke: 732 *.110.EUnet.yu
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;