Как правильно закрыть всё приложение с модальными формами.

← →
Lebedev (2007-10-19 09:15) [0]

У меня проблема. Я хочу чтобы всё моё приложение закрывалось после того, как произойдёт событие OnTimer компонента Timer, размещённого на модальной форме.

Вот код обработки этого события
procedure TForm3.Timer1Timer(Sender: TObject); begin timer1.enabled:=false; close; end;

У главной формы код события OnShow
procedure TForm1.FormShow(Sender: TObject); begin Form3.ShowModal; if Form3.ShowModal<>7 then application.Terminate

Но при отладки в среде Delphi видно, что приложние в итоге не закрывается полностью, тоесть форм не видно, а приложение работает.
Как правильно закрыть приложение в моём случае?

← →
Reindeer Moss Eater © (2007-10-19 09:17) [1]

Form3.ShowModal;
if Form3.ShowModal<>7 then

Блеск!

← →
Slym © (2007-10-19 09:29) [2]

halt;

← →
Lebedev (2007-10-19 10:15) [3]

>Блеск!
Будьте добры прокомментировать, что не так.

← →
Reindeer Moss Eater © (2007-10-19 10:15) [4]

зачем тебе два последовательных показа одной и той же формы?

← →
Lebedev (2007-10-19 10:18) [5]

>halt;
не момогает
procedure TForm1.FormShow(Sender: TObject); begin Form3.ShowModal; if Form3.ShowModal<>7 then halt

это ничего не меняет.

← →
Lebedev (2007-10-19 10:27) [6]

>зачем тебе два последовательных показа одной и той же формы?
спасибо, понял ошибку.

Сейчас после такого кода
procedure TForm1.FormShow(Sender: TObject); begin if Form3.ShowModal<>7 then //close //application.Terminate halt else begin
вылазит ошибка

"... raised exseption class EInvalidOperation with message "Cannot change Visible in OnShow or OnHide" ..."

procedure TForm3.Timer1Timer(Sender: TObject); begin timer1.enabled:=false; //close; ModalResult := mrIgnore; //так принято закрывать модальные фориы end;
У главной формы код события OnShow
Ничего страшного, что Form1 не прорисуетмя при запуске?

procedure TForm1.FormShow(Sender: TObject); begin Form3.ShowModal; if Form3.ModalResult = mrIgnore then Close; // так принято закрывать гоавную форму приложения ( а с ней и само приложение) end;

Лучше постить сообщение WM_CLOSE тогда все прорисуется.

← →
Lebedev (2007-10-19 11:21) [9]

Спасибо большое! Сейчас всё работает.

>Ничего страшного, что Form1 не прорисуетмя при запуске?
Для меня, в принципе, это не важно. Или это не красиво с точки зрения программирования?

Как правильно закрыть всё приложение с модальными формами. Найти похожие ветки