| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Application.Terminate [D6, WinME, Win2k, WinXP]

SergP ©   (2005-10-22 17:13:00) 

Такая ситуация. Есть проект, где при запуске создается окно для вводла логина и пароля (что-то типа 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-23 20:54:00) [1]

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

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

---

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

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


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

---

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

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

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

---

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

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

---

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


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:00) [6]

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

---

Наверх