Текущий архив: 2005.03.20;
Скачать: CL | DM;
Вниз
событие "TForm.OnAfterShow" Найти похожие ветки
← →
DSKalugin © (2005-03-07 10:52) [0]Я знаю что такого не существует, но нужно написать обработчик этого несуществующего события.
Как его объявить если это возможно?
Или как по другому выполнить процедуру сразу ПОСЛЕ открытия формы?
OnCreate, OnShow не подходят
← →
KSergey © (2005-03-07 10:56) [1]После открытия и отрисовки, верно?
Я обычно в OnCreate постю себе сообщение пользовательское - а в его обработчике как раз тот код, который хочу выполнить
← →
DSKalugin © (2005-03-07 11:09) [2]интересное решение, а примерчик покажешь?
← →
KSergey © (2005-03-07 11:21) [3]Какой? Как пользовательское событие вешать?
Да как обычно
Примерно так:
const
AM_BASE = WM_USER+500;
AM_FORMSTART = AM_BASE
type
TAdEditForm = class(TForm)
...
private
Procedure AMFormStart(Var Msg:TWMKey); message AM_FORMSTART;
end;
....
TAdEditForm.AdEditFormCreate;
begin
PostMessage (Handle, FORMSTART, 0, 0);
end;
TAdEditForm.AMFormStart(Var Msg:TWMKey);
begin
......
end;
← →
KSergey © (2005-03-07 11:22) [4]TWMKey заменить на TMwssage, конечно же
← →
DSKalugin © (2005-03-07 11:23) [5]Бальшущее спасибо, буду пробовать :-)
← →
Юрий Зотов © (2005-03-07 13:01) [6]OnActivate с флагом первой активизации.
← →
DSKalugin © (2005-03-07 13:26) [7]2 Юрий Зотов
Совсем хорошо :-)) Была мысль про OnActivate, но о флаге не подумал
Спасибо
Страницы: 1 вся ветка
Текущий архив: 2005.03.20;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.033 c
