Nesnenin olayları

[pentiumkivanc]

Merhaba;
Bir nesneyi create ederken onun tag ına değer veriyorum ve

Kod: Tümünü seç

procedure Tform1.NesneClick(sender: Tobject)
begin
  showmessage(inttostr(tag));
end;

gibi de bir prosedürüm var. Şimdi create ettiğim nesnenin

Kod: Tümünü seç

with CreateEttiğimNesne do
begin
left:=x;
top:=y;
tag:=12345;
..
..
Onclick:=nesneclick;
end;

şeklinde yapıp çalışma anında nesneye tıklatınca verdiği mesaj create ettiğim nesnenin değil, Tform1 in tag ı.

Aslında yapmak istediğim şey şu veritabanından gelen verilere göre resimler bir scrollbox içinde listeleniyor. Her resmin tag ına kayıt numarasını veriyorum. Tıklatınca o kayıt numarasına ulaşıp, kaydın detaylarını görüntületmek istiyorum. Yani aynı web sayfalarındaki resme link verme gibi bişey olacak. Bunu nasıl yapabilirim

[mege]

sender.tag olacak

ek:

şu an delphi yok makinamda ama tlabel(sender).tag olacak veya tedit(sender).tag da olabilr. bi deneyin

[sadettinpolat]

Kod: Tümünü seç

procedure Tform1.NesneClick(sender: Tobject)
begin
  showmessage(inttostr(tag));
end;

buradaki tag forma ait olan tag degeridir.
megeninde belirttiği gibi bu satırı

Kod: Tümünü seç

  showmessage(inttostr((sender as tNesneniz).tag));

şeklinde değştirirseniz sonuca ulaşırsınız.