Текущий архив: 2004.07.11;
Скачать: CL | DM;
Вниз
Разрушения формы Password Dialog после проверки пароля. Найти похожие ветки
← →
INTAARI (2004-06-23 10:11) [0]Доброе утро господа!!!
Я добавил в программу форму ввода пароля. По человечески ее надо после проверки пароля закрыть (form1.close), но закрывается все приложение. Если ее просто спрятать (form1.hide), то форма которая открывается за ней при сворачивании помещается в нижнем углу рабочего стола. Подскажите пожалуйста как правильно поступить с формой ввода пароля после того как она уже не нужна. И еще вопрос, имеет ли значение порядок создания форм.
procedure TfrmPasswordDlg.OKBtnClick(Sender: TObject);
begin
if edtPassword.Text="123456"
then
begin
Application.CreateForm(TfrmSet, frmSet);
Application.CreateForm(TfrmGMP, frmGMP);
frmPasswordDlg.Hide;
end
else
begin
MessageDlg("Введен неверный пароль",mtWarning,[mbOK],0);
edtPassword.Text:="";
edtPassword.SetFocus;
end;
end;
← →
Алхимик © (2004-06-23 10:14) [1]Дай .dpr
Скорее всего эта форма является у тебя главной формой приложения.
Закрыл главную форму - закрыл приложение.
← →
Юрий Федоров © (2004-06-23 10:16) [2]не исполоьзуй при создании формы пароля Application в качестве owner.
Видимо она у тебя получается главной формой
← →
INTAARI (2004-06-23 10:16) [3]По идее главная форма приложение должна стать frmGMP
rogram GMP;
uses
Forms,
Pass in "Pass.pas" {frmPasswordDlg},
Unit_Meteo in "Unit_Meteo.pas" {frmGMP},
Seting in "Seting.pas" {frmSet};
{$R *.RES}
begin
Application.Initialize;
Application.Title := "Гидрометеопост";
Application.CreateForm(TfrmPasswordDlg, frmPasswordDlg);
Application.Run;
end.
← →
_ALEXey_ (2004-06-23 10:19) [4]В опциях проекта убери форму из автоматически создаваемых и создавай ее динамически в .dpr перед другими Application.CreateForm, проверяй пароль, разрушай форму, затем уже пусть создаются остальный формы (если пароль верный).
← →
Алхимик © (2004-06-23 10:22) [5]
> [3] INTAARI (23.06.04 10:16)
> По идее главная форма приложение должна стать frmGMP
Так и создавай её первой.
А пароль запрашивай после.
Например так:
http://www.delphikingdom.ru/asp/viewitem.asp?UrlItem=/helloworld/rightdialog.htm
← →
Digitman © (2004-06-23 10:28) [6]
> По идее главная форма приложение должна стать frmGMP
где ж главная-то ?
вот же строчка, создающая главную форму :
Application.CreateForm(TfrmPasswordDlg, frmPasswordDlg);
← →
INTAARI (2004-06-23 10:37) [7]Спасибо всем за советы!!!
Страницы: 1 вся ветка
Текущий архив: 2004.07.11;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.021 c
