Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.13;
Скачать: CL | DM;

Вниз

Application.Terminate   Найти похожие ветки 

 
SergP ©   (2005-10-22 17:13) [0]

Такая ситуация. Есть проект, где при запуске создается окно для вводла логина и пароля (что-то типа splash-формы)

содержимое dpr файла:

...
begin
 Application.Initialize;
 with TFrmLogin.Create(Application) do ShowModal;
 Application.CreateForm(TFrmMain, FrmMain);
 Application.Run;
end.


Для отказа от ввода логина и пароля ессть такая штука:


procedure TFrmLogin.Button2Click(Sender: TObject);
begin
 Application.Terminate;
end;


Оказалось что при  выполнении Application.Terminate создается форма TFrmMain, после чего уничтожается.
Получается что при отказе от ввода логина и пароля я нажимаю на button2 и в это время было заметно мелькание (создание, отображение и уничтожение) FrmMain.
А проблема заключается в том что в oncreate формы FrmMain у меня производятся определенные действия, которые в этом случае приводят к возникновению исключения.
Что делать? Как правильно закрыть приложение, чтобы FrmMain  при этом не создавалась?


 
Плохиш ©   (2005-10-22 17:44) [1]


begin
Application.Initialize;
with TFrmLogin.Create(Application) do
  if ShowModal = mrOk then
  begin
    Application.CreateForm(TFrmMain, FrmMain);
    Application.Run;
  end;
end.


 
Плохиш ©   (2005-10-22 17:44) [2]

И никаких Terminate не надо.


 
SergP.   (2005-10-22 18:57) [3]

Спасибо...
Но что влияет на значение возвращаемое методом Showmodal?


 
Плохиш ©   (2005-10-22 20:54) [4]


> SergP.   (22.10.05 18:57) [3]
> Но что влияет на значение возвращаемое методом Showmodal?

О много чего, но только не расположение звёзд на небе. Может теорию поучишь, для начала.


 
SergP.   (2005-10-23 07:09) [5]


> О много чего, но только не расположение звёзд на небе. Может
> теорию поучишь, для начала.


Да ладно...   Просмотр исходников forms у меня много времени не занял , но зато я рад что Вы имели возможность получить удовольствие  от своего  ответа :-)


 
Плохиш ©   (2005-10-23 20:54) [6]


> Просмотр исходников forms у меня много времени не занял

а достаточно было F1 нажать



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

Текущий архив: 2005.11.13;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.03 c
10-1107329735
Мыкола Бондаренко
2005-02-02 10:35
2005.11.13
WinFax Pro


3-1128342556
Prohodil Mimo
2005-10-03 16:29
2005.11.13
не получается загрузить JPG картинку из TStream в TImage


1-1129728524
saNat
2005-10-19 17:28
2005.11.13
"Прокрутка" TScrollBox


1-1129910104
jiurasdfsdfs
2005-10-21 19:55
2005.11.13
Tms Adv Grid - как сделать суммрование и...?


2-1129816409
проходил_мимо_решил_зайти
2005-10-20 17:53
2005.11.13
Мемо и печать