Вывод диалога после загрузки главного окна

← →
Андрусь © (2002-08-19 18:27) [0]

Привет всем! Созрел вот такой вопрос:такая задачка - при полном отображении формы главной формы после запуска программы нужно вывести диалоговое окно. Подскажите как это реализовать без использования таймера(с ним несерьёзно).
Зараннее всем большое спасибо!

← →
Sedunov Vitaly (2002-08-19 18:50) [1]

Вариант навскидку: в OnCreate - создаешь переменную Show, присваиваешь True. В OnActivate if Show then <Dialog>.После показа диалога Show:=False.

← →
-= Like =- (2002-08-19 18:52) [2]

Нужно обрабатывать свойство формы OnActivate. Помести туда свой код.

← →
Андрусь © (2002-08-19 19:40) [3]

А месседжа о том,что приложение готово реагировать на юзера нету?

← →
Mikhail © (2002-08-19 20:10) [4]

begin Application.Initialize; Application.CreateForm(TMainForm, MainForm); Application.CreateForm(TData, Data); MainForm.Show; if Data.DoLogin then Application.Run else Application.Terminate; end. ... function TData.DoLogin: Boolean; var wLogonForm: TLogonForm; begin Result := False; wLogonForm := TLogonForm.Create(nil); if wLogonForm.ShowModal = 1 then try .... except .... Result := DoLogin; end; end;

Так что-ли?

← →
Андрусь © (2002-08-19 20:23) [5]

>Mikhail ©
Ну не совсем так,надо чтобы главная форма была отображена.
>Sedunov Vitaly,-= Like =-
Что-то главная форма не успевает перерисовываться.

← →
Mikhail © (2002-08-19 20:25) [6]

Так она и будет отображена, а поверх нее окно диалога 8(

← →
Андрусь © (2002-08-19 20:31) [7]

А ты попробуй сам. Форма отображается на Application.Run.

Да в том-то и дело, что работает - иначе бы не советовал...
Просто удивительно...

Извини, MainForm.Show; просмотрел.

> А месседжа о том,что приложение готово реагировать на юзера нету?

Есть событие - см. TApplication.OnIdle. Для однократного срабатывания можно ввести логическую переменную.

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