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

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

← →
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?

---

← →
ПостОвый терминатор ©   (2008-03-17 18:40) [6]

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

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

---

← →
easy ©   (2008-03-17 18:57) [7]

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

---

Страницы: 1 вся ветка

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



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