| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Закрытие формы [D7, XP]

Viconia ©   (2006-05-13 16:54:00) 

У меня главной формой является окошко с паролем. Когда пароль вводится, оно скрывается и появляется вторая форма. В form2 на кнопку выход я прописала form1.close. Но возникает проблема - если щелкать на кнопку "крестик" на шапке формы, но form2 закрывается, но form1 остается скрытой, т.е. приложение не закрывается. Как сделать так, чтобы при нажатии на "крестик" form1 закрывалась?

---

Жуков Олег   (2006-05-13 22:03:00) [1]

To Viconia -
Лучше изначально не делать форму для ввода пароля главной, от этого только проблемы.
В Delphi главной становится первая создаваемая форма, у которой Owner=Application. Поэтому можно сделать так:

function CheckPassword(): Boolean
var
 Form: TInputPasswordForm;
begin
 Form := TInputPasswordForm.Create(nil);  // т.к. Owner <> Application, эта форма не станет главной
 try
   Result := Form.ShowModal() = mrOk;
   if Result then
     Result := Form.EditPassword.Text = '12345'; // мой секретный пароль
 finally
   Form.Free();
 end;
ebd;

А в файле DPR использовать:
if CheckPassword() then
begin
 // Тут создавать главную форму, и делать всё остальное что нужно для запуска программы
end;

---

Viconia   (2006-05-13 18:03:00) [2]

Большое спасибо всем!!! Разобралась-таки:))))

---

Шпиён   (2006-05-13 17:52:00) [3]

"Повесить" на TForm2.OnClose:

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.Close;
end;


---

Viconia   (2006-05-13 17:28:00) [4]

to easy:
я на делфи первый раз прогу делаю, поэтому еще плохо разбираюсь:
а если у меня много форм, мне нужно все application.createform писать


Application.Initialize;
 with TForm1.Create(Application) do begin
   try
     Showmodal;
     if (ModalResult=mrOK) and (Edit1.text='password') then begin
       Application.CreateForm(TForm2, Form2);

Вот тут, да?


 Application.Run;
     end;
   finally
     Free;
   end;
 end;


---

Viconia   (2006-05-13 17:15:00) [5]

Я, наверное, немного неправильно сформулировала:
Как сделать так, чтобы при нажатии крестика на шапке формы form2 одновременно закрывалась и Form1

---

easy   (2006-05-13 17:08:00) [6]

http://dfc.com.ru/password.zip 2,4 kb

---

Viconia   (2006-05-13 17:05:00) [7]

Так если у меня form1 главная, то если я выполню form1.close у меня приложение закроется полностью.

---

Der Nechk@ssoff   (2006-05-13 17:01:00) [8]

На  form1 наверное есть кнопка для проверки пароля? Проверяй пароль,если пароль=true то form1.close; или showmessage('Неверныепароль!');

---

Наверх