Форум: "Основная";
Текущий архив: 2002.08.29;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Андрусь   (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.

---

← →
Mikhail   (2002-08-19 20:43) [8]

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

---

← →
Андрусь   (2002-08-19 21:01) [9]

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

---

← →
Юрий Зотов   (2002-08-19 22:08) [10]

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

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

---

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

Форум: "Основная";
Текущий архив: 2002.08.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.006 c