событие "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]

Бальшущее спасибо, буду пробовать :-)

OnActivate с флагом первой активизации.

2 Юрий Зотов
Совсем хорошо :-)) Была мысль про OnActivate, но о флаге не подумал
Спасибо

событие "TForm.OnAfterShow" Найти похожие ветки