Как закрыть программу?

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

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

Удаляем из списка создаваемых автоматически форм 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;

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