VPF::ошибка в коде - Форум программистов

&-ray

Дата 16.5.2003, 19:09 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 406
Регистрация: 15.4.2003
Где: Казахстан, г Аста на

Репутация: нет
Всего: нет

Цитата

иф ModalResult<>mrOk зен WM_CLOSE

Вроде как порешили не использовать ModalResult

*^angel^*, предлагаю простой способ:

dpr:

Код


  //собственно ничего оригинального здесь нет
  Application.Initialize;
  Application.CreateForm(TfMain, fMain);
  Application.CreateForm(TfUsers, fUsers);
  application.ShowMainForm:=false;
  Application.Run;

на ГЛАВНУЮ форму выложи таймер, установи интервал в несколько мс и добавь процедуру:

Код


procedure TfMain.Timer1Timer(Sender: TObject);
begin
timer1.enabled:=false;
fUsers.show; //именно show, а не showmodal!!!
end;

в форме авторизации при клике на btnOk проверяй правильность пароля, если пароль верный, то закрывай эту форму и отображай главную (fMain.show), если пароль неправильный, то оставляй форму открытой.
При клике на btnCancel закрывай приложение (application.terminate)

И усе готово!

--------------------

"Совсем неважно от чего помрешь, ведь куда важнее - для чего родился..." С.Б.

--------------------
И снова мышь беру я в руки
Куда иду? - Конечно в сруки!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »