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

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

Узнать какой объект создал событие [D6, WinXP]

Алексей ©   (2004-10-09 23:49:00) 

Подскажите, пожалуйста, как узнать по Sender-у имя объекта, который создал событие и получить доступ к его полям, например содержимое поля text.

---

Юрий Зотов   (2004-10-10 01:03:00) [1]

type
 TFriendControl = class(TControl);
...

if Sender is TControl then
 with TFriendControl(Sender) do
 begin
   Text := 'Привет';
   ...
 end
else
 if Sender is TComponent then
 with TComponent(Sender) do
 begin
   ShowMessage(Name);
   ...
 end;

---

Наверх