Скачать: 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 вся ветка

Скачать: CL | DM;



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