Текущий архив: 2002.08.29;
Скачать: CL | DM;
Вниз
Вывод диалога после загрузки главного окна Найти похожие ветки
← →
Андрусь © (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;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.012 c
