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 у меня много времени не занял , но зато я рад что Вы имели возможность получить удовольствие от своего ответа :-)

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

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

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