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

Вниз

Как отловить момент после создания новой формы?   Найти похожие ветки 

 
Arc   (2005-07-11 00:07) [0]

Форма создается динамически,
например что-нить типа:
with TSomeForm.Create(Application) do
begin
  .....

end;

В моем компоненте нужно кое-что сделать со всеми динамически создающимися формами, после их Create, или после их Show, не важно.
С формами создающимися при запуске приложения, проблем нет

 for n := 0 to Application.ComponentCount - 1 do
   if Application.Components[n] is TForm then
     (Application.Components[n] as TForm).SomeProperty := SomeValue;

А как быть с динамическими формами? Как мне отловить это событие?

PS. Вносить какой-либо дополнительный код в формы я не хочу. Компонент должен работать с уже созданными проектами.


 
Anatoly Podgoretsky ©   (2005-07-11 00:15) [1]

begin эта самая точка и есть.


 
Юрий Зотов ©   (2005-07-11 00:26) [2]

В конструкторе компонента ставим локальный хук, в нем отлавливаем WM_CREATE, получаем ссылку на дельфишный объект через FindControl, проверяем его класс - и если это форма, то выполняем с ней нужные действия. В деструкторе компонента хук снимается.

Поскольку такой компонент нужен всего один на весь проект, лучше сделать его в виде синглтона (перекрыв NewInstance и FreeInstance).


 
Arc   (2005-07-11 00:32) [3]

begin эта самая точка и есть.

:) Я знаю, но вот как раз там-то я и не хочу ничего изменять и как раз для того чтобы там ничего не изменять мне и нужен этот класс.

Вносить какой-либо дополнительный код в формы я не хочу. Компонент должен работать с уже созданными проектами.

Конечно я бы мог сделать наследника от TForm, в котором на OnCreate выполнял бы нужный мне код, но я не хочу переписывать ВСЕ динамические формы встречающиеся в моих проектах.


 
Arc   (2005-07-11 00:41) [4]

В конструкторе компонента ставим локальный хук, в нем отлавливаем WM_CREATE
Мда... а я пытался повсится на Application.OnMessage, но WM_CREATE до туда не доходит...

Хук значит. Никогда не делал, можно ссылочку, где об этом почитать можно


 
Arc   (2005-07-11 00:56) [5]

О SetWindowsHookEx написано в хелпе. Вопрос исчерпан.



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

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

Наверх




Память: 0.48 MB
Время: 0.038 c
1-1121404703
tir
2005-07-15 09:18
2005.07.31
Декомпилятор


3-1118912565
Лиса
2005-06-16 13:02
2005.07.31
Разграничение прав пользователей


1-1121063954
Andy BitOff
2005-07-11 10:39
2005.07.31
Word: запустить, проследить, узнать о результатах.


6-1113826059
Alexis
2005-04-18 16:07
2005.07.31
Проблема с send()/recv() в многопоточной программе


3-1119340037
ali_tash
2005-06-21 11:47
2005.07.31
TOracleDataSet выводит поля с пробелами как пустые