Вывод на экран модального окна сразу после открытия главного окна

← →
Nikolai_S © (2002-11-12 12:00) [0]

Как вывести на экран модальное окна сразу после открытия главного окна? Если использовать событие OnShow, то модальное окно появляется до открытия главной формы.

← →
Skier © (2002-11-12 12:09) [1]

>Nikolai_S
OnActivate() ?

← →
Nikolai_S © (2002-11-12 12:12) [2]

Нет, то же самое выходит. Моадльное окно загружается раньше

← →
stone © (2002-11-12 12:15) [3]

можно навесить таймер и по OnTimer показывать модальное окно

← →
Юрий Федоров © (2002-11-12 12:26) [4]

думаю, что на OnShow нужно отправить PostMessage главному окну, на обработку сообщения уже вызвать Form2.ShowModal

← →
Reindeer Moss Eater (2002-11-12 12:34) [5]

Просто перед показом модального окна надо дать успеть главной форме отрисоваться.

← →
Dmitriy Polskoy © (2002-11-12 12:38) [6]

В OnActivate все отлично работает

← →
IDKFA © (2002-11-12 12:53) [7]

Советую прописать вызов модальной формы в OnPaint главной!

← →
_Nicola_ (2002-11-12 16:21) [8]

Да нет, все проще.
Есть такая штука Application.OnIdle.

Пишешь в private формы:

procedure MyIdleHandler(Sender: TObject; var Done: Boolean);

Потом в implementation

procedure MyIdleHandler(Sender: TObject; var Done: Boolean);
begin
Application.OnIdle := nil;// <-- _ОБЯЗАТЕЛЬНО_ И ПЕРВОЙ СТРОКОЙ
...
ModalForm.ShowModal;
...
end;

И, например, в OnShow главной формы:
Application.OnIdle := MyIdleHandler;

И усе!

Есть более простой путь - использовать AppEvent из RxLib, но там тоже не без премудростей.
А еще этот вопрос есть в куче FAQ.

← →
Reindeer Moss Eater (2002-11-12 17:07) [9]

>_Nicola_
На самом деле все еще проще:

procedure TForm1.FormCreate(Sender: TObject);
begin
Show;
ShowMessage("Bla Bla Bla");
end;

Пошлите форме сообщение через PostMessage. А в процедуре обработки этого сообщения выводите модальную форму.

← →
_Nicola_ (2002-11-12 18:23) [11]

2Reindeer Moss Eater (12.11.02 17:07)
А где гарантия, что модальная форма уже создалась?

Вывод на экран модального окна сразу после открытия главного окна Найти похожие ветки