Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.11.30;
Скачать: 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 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.013 c
15-1222757063
Любитель музыки
2008-09-30 10:44
2008.11.30
Чтение DVD-караоке на компьютере


2-1224101559
deras
2008-10-16 00:12
2008.11.30
Как вложить в тело письма html код?


8-1187446480
исследователь
2007-08-18 18:14
2008.11.30
Аналоговые часы


3-1210606073
Вася
2008-05-12 19:27
2008.11.30
Firebird и список БД


2-1224484811
JustI
2008-10-20 10:40
2008.11.30
AutomationObject