Скачать: CL | DM;

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

← →
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;

---

← →
Александр Спелицин ©   (2002-11-12 17:52) [10]

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

---

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

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

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.011 c