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

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

нужно как можно раньше контрлам формы повесить метод [D2005, XP]

Vlad Oshin ©   (2008-10-16 15:10:00) 

Мне нужно как можно раньше контрлам формы повесить метод, допустим на OnEnter.
это делает допустим такой код
I:integer;
PropInfo: PPropInfo;
begin
 for I := 0 to ComponentCount-1 do
 begin
    if (components[i] is TControl) then
    begin
       PropInfo:= GetPropInfo(components[i],'OnEnter');
       If PropInfo<>nil then
         tButton(components[i]).onEnter:=ClassFormSend; //наверное, можно и так, tButton
    end;
 end;

но, вся суть, чтоб как можно раньше.
на создание формы нельзя, ее же еще нет.

Как посоветуете?

---

Правильный$Вася   (2008-10-16 18:42:00) [1]

> ага, надо было просто попробовать

просто почитать справку

---

Vlad Oshin   (2008-10-16 15:22:00) [2]

ага, надо было просто попробовать  :)
спасибо

---

Сергей М.   (2008-10-16 15:18:00) [3]

> на создание формы нельзя, ее же еще нет.


Есть. Причем полностьюсозданная - со всеми контролами и назначенными им из dfm свойствами, в т.ч. свойствами-методами обработки событий.

Т.е. событие OnCreate есть факт полностью сконструированной формы.

---

Ega23   (2008-10-16 15:13:00) [4]

> на создание формы нельзя, ее же еще нет.


Если ты о событии OnFormCreate, то оно вызывается сразу после создания формы и всего того, что в dfm прописано.

---

Наверх