| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

присваивание обработчика

Delphist2 ©   (2010-05-03 05:45:00) 

Как сделать, чтобы можно было обратиться к компоненту? Перебирать компоненты методом findcomponent не охота. Охота сразу к sender обратиться.
procedure do_smth(Sender: TObject);
begin
//здесь нужно обратиться к (sender as tbutton), но возникает AV
end;
...
butarray[k]:=tbutton.Create(self);
butarray[k].Tag:=k;
@butarray[k].OnClick:=@do_smth;
...

---

MBo   (2010-05-03 06:42:00) [1]

@ не нужно
по теме:
http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=342

---

Наверх