Убрать первоначальную форму.

← →
Sergey2 (2008-03-17 15:52) [0]

Есть форма frmPass, функциональность, которой заключается в том, что бы запросить логин пароль. И есть главная форма frmMain.
frmMain создаю в форме frmPass.
FrmMain := TFrmMain.Create(Application); frmMain.Show();

После чего форма frmPass мне не нужна. Вопрос в том ,что никак не получается скрыть/убить эту форму. Она всёравно остаётся активной.

На закрытие формы сюда приходит
procedure TfrmPass.FormClose(Sender: TObject; var Action: TCloseAction); begin Visible := False; end;

Быть может как то эту задачу можно более правильно сделать или в текущем проекте нечто стоит проверить ?

← →
Семеныч (2008-03-17 16:03) [1]

Главной формой программы становится первая форма, владельцем которой является Application. У Вас получается, что главная форма - frmPass, а должна быть frmMain.

> frmMain создаю в форме frmPass.

Делайте наоборот.

← →
tesseract © (2008-03-17 16:11) [2]

> procedure TfrmPass.FormClose(Sender: TObject; var Action:
> TCloseAction);
>begin
>Visible := False;
>end;

Это что За бред ?

FrmMain:=TFrMain.Create(nil);
if FrmMain.ShowModal()=mrOK then (прошёл тест);
FrMain.free;

работает

← →
clickmaker © (2008-03-17 16:14) [3]

> Sergey2 (17.03.08 15:52)

*.dpr

Application.CreateForm(TPassForm, frmPass);
if frmPass.ShowModal = mrOk then begin
Application.CreateForm(TMainForm, frmMain);
Application.Run;
end;

← →
Reindeer Moss Eater © (2008-03-17 16:22) [4]

Какой ужас ....
:)

← →
Kolan © (2008-03-17 18:23) [5]

> [2] tesseract © (17.03.08 16:11)

Де try finally?

В
> Семеныч (17.03.08 16:03) [1]

исчерпывающий ответ, и не нужны дальнейшие извраты (исключая clickmaker © (17.03.08 16:14) [3] )

http://dfc.com.ru/download.php?d=login 3kb

Убрать первоначальную форму. Найти похожие ветки