Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Убрать первоначальную форму. [D7, WinXP]

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

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

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

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

easy (2008-03-17 18:57:00) [1]
http://dfc.com.ru/download.php?d=login3kb

ПостОвый терминатор (2008-03-17 18:40:00) [2]
В
> Семеныч (17.03.08 16:03) [1]

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

Kolan (2008-03-17 18:23:00) [3]
> [2] tesseract © (17.03.08 16:11)

Де try finally?

Reindeer Moss Eater (2008-03-17 16:22:00) [4]
Какой ужас ....
:)

clickmaker (2008-03-17 16:14:00) [5]

> Sergey2 (17.03.08 15:52)

*.dpr

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

tesseract (2008-03-17 16:11:00) [6]

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

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

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

работает

Семеныч (2008-03-17 16:03:00) [7]
Главной формой программы становится первая форма, владельцем которой является Application. У Вас получается, что главная форма - frmPass, а должна быть frmMain.

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

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

Наверх

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