Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Событие показа формы.

Д С © (2008-09-22 01:14:00)
Мне нужно выполнить некое действие сразу после показа формы. Как это сделать?
OnShow срабатывает до показа.

Дмитрий Белькевич (2008-09-22 03:18:00) [1]
Так она же уже показана. А чем OnShow не подходит?

Дмитрий С (2008-09-22 02:13:00) [2]

>
> Тебе известно понятие "везёт"?

Хотя бы теоретически, ты сможешь нажать на форму, которая еще не показана?

Германн (2008-09-22 02:09:00) [3]

> Дмитрий С (22.09.08 01:50) [4]
>
>
> > Вот только "сразу"?
>
> Практически сразу. Пользователь ничего не успеет нажать
> это точно.
>

Тебе известно понятие "везёт"?

> Я не слежу за никами - мозила сама подставляет. а по какому
> признаку, мне не известно
>

Тогда прощай.

Дмитрий С (2008-09-22 01:50:00) [4]

> Вот только "сразу"?

Практически сразу. Пользователь ничего не успеет нажать это точно.

> Ну и перестань менять ники в одной и той же ветке! Надоело.
> А модераторы могут и забанить. Да и должны.
>

Я не слежу за никами - мозила сама подставляет. а по какому признаку, мне не известно

Германн (2008-09-22 01:46:00) [5]

> Дмитрий С (22.09.08 01:32) [2]
>
> Это не то...
>
> Пока решил так:

Ну для ряда случаев действительно хорошее решение PostMessage. Вот только "сразу"?
Ну и перестань менять ники в одной и той же ветке! Надоело. А модераторы могут и забанить. Да и должны.

Дмитрий С (2008-09-22 01:32:00) [6]
Это не то...

Пока решил так:
procedure TMainForm.FormShow(Sender: TObject);
begin
PostMessage(Handle, WM_AFTERSHOW, 0, 0);
end;

procedure TMainForm.WMAFTERSHOW(var Msg: TMessage);
begin
ShowMessage('Тест:)');
end;

Германн (2008-09-22 01:23:00) [7]

> Д С (22.09.08 01:14)
>
> Мне нужно выполнить некое действие сразу после показа формы.
> Как это сделать?
> OnShow срабатывает до показа.
>

OnActivate не подойдет? Но это палка о двух концах.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »