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

Как закрыть программу?   Найти похожие ветки 

← →
Nikos   (2003-05-02 11:20) [0]

Здравствуйте.
На главной форме есть кнопка выход. В обработчике событий пишу Close и программа закрывается. Так же на главной форме находится другая кнопка. С ее помощью я закрываю гланую форму и открываю форму2.
Form2.Show;
FormMain.Destroy;
На Форме2 так же есть кнопки Выход и Назад. На кнопке Выход нужно, чтобы закрывалась программа, а на кнопке Назад, закрывалась Форма2 и открывалась Главная форма. Как это сделать? На кнопке Выход Формы2 пишу Close, но закрывается только Форма2, а программа продолжает работать.

---

← →
Hawk ©   (2003-05-02 11:35) [1]

Application.Terminate

---

← →
TALLA_   (2003-05-02 12:09) [2]

Только пиши не FormMain.Destroy, а FormMain.Hide

---

← →
evvcom ©   (2003-05-04 02:13) [3]

При закрытии главной формы (Close) закрывается программа, поэтому надо действительно ее "прятать", а не закрывать, т.е. FormMain.Hide.

Для Form2 на Выход пропиши FormMain.Close, а на Назад - Form2.Close и FormMain.Show

---

← →
circul ©   (2003-05-04 03:31) [4]

Задача в топике вполне решается...

Удаляем из списка создаваемых автоматически форм Form2(Не обязательно).

Код для Form1:

procedure TForm1.Button1Click(Sender: TObject);
begin
if not Assigned(Form2) then
begin
Application.CreateForm(TForm2, Form2);
end;
Form1.Hide;
Form2.Show;
end;

Код для Form2:

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree; //если форма создается динамически
Form2 := nil; //если форма создается динамически
Form1.Show;
end;

procedure TForm2.bnPrevClick(Sender: TObject);
begin
Close;
end;

procedure TForm2.bnExitClick(Sender: TObject);
begin
Close;
Form1.Close;
end;

---

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

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



Память: 0.45 MB
Время: 0.015 c