Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.30;
Скачать: CL | DM;

Вниз

Обработка событий у динамически созданных объектов   Найти похожие ветки 

 
Kosmach ©   (2002-12-15 20:49) [0]

Уважаемые мастера, вот какой у меня возник вопрос.
Есть у меня динамический массив
a: array of TEdit;

После чего я периодически делаю следующее

Count:=Count+1;
a[count-1]:=TEdit.Create(Form1);
a[count-1].Parent:=Form1;

Все бы ничего, но как мне после этого отслеживать события у этих моих созданных Edit"ов.
Например я хочу отслеживать событие onChange.
В C++ было что-то вроде CallBack и это позволяло вызывать определенную функцию для обработки этих событий, хотя может я и наврал, вобщем подскажите пожалуйста как мне быть.


 
Anatoly Podgoretsky ©   (2002-12-15 20:53) [1]

Точно также
a[count-1].Событие := обработчик
ничего кроме обычного присваивания.


 
asmith   (2002-12-15 22:03) [2]

Добавлю - сделай их всех "немного разными", проще всего присвой a[count-1].Tag := count; Тогда в обработчике любого события сможешь отделить один TEdit от другого.


 
Kosmach ©   (2002-12-19 15:05) [3]

Прошу прощения что опять подымаю эту тему, но у меня как раз возникла проблемма с тем как мне различать какой TEdit вызвал этот обработчик, а идею asmith"а я не совсем понял.
Не мог бы кто-нибудь поподробнее расписать как мне в уже мною описанном обработчике события обращаться к тому TEdit"у с которым оно произошло.


 
Zz_   (2002-12-19 15:11) [4]

Например, так

(Sender as TEdit).Text := IntToStr((Sender as TEdit).Tag)


 
Kosmach ©   (2002-12-19 15:13) [5]

Спасибо!!!



Страницы: 1 вся ветка

Текущий архив: 2002.12.30;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.021 c
7-99370
sasha_d
2002-10-18 13:38
2002.12.30
Быстрая печать кириллицы на матричном принтере


1-99133
kalishenko stas
2002-12-18 13:21
2002.12.30
Word


1-99083
Emigrant
2002-12-17 02:25
2002.12.30
D6: TListBox


14-99276
Uncle Archi
2002-12-06 21:20
2002.12.30
Проблема с языком.


6-99242
LORD
2002-11-01 20:05
2002.12.30
tstringlist + clientsocket = error