Скачать: CL | DM;

нужно как можно раньше контрлам формы повесить метод   Найти похожие ветки 

← →
Vlad Oshin ©   (2008-10-16 15:10) [0]

Мне нужно как можно раньше контрлам формы повесить метод, допустим на 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;

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

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

---

← →
Ega23 ©   (2008-10-16 15:13) [1]

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


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

---

← →
Сергей М. ©   (2008-10-16 15:18) [2]

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


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

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

---

← →
Vlad Oshin ©   (2008-10-16 15:22) [3]

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

---

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

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

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.008 c