Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2008.04.13;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.04.13;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.007 c
15-1204391782
omen_77
2008-03-01 20:16
2008.04.13
помогите


15-1204209605
Interior
2008-02-28 17:40
2008.04.13
Видео чат по локальной сети


6-1185174069
andreil
2007-07-23 11:01
2008.04.13
Плагин для IE на Delphi?


2-1205851058
Vik
2008-03-18 17:37
2008.04.13
SQL, сетевой вариант


15-1204398665
TIF
2008-03-01 22:11
2008.04.13
Canvas у... TWebBrowser





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский