Объясните мне, пожалуйста, причину одной вещи. Я никак не соображу. Дело в том, что у меня есть некоторая форма, допустим Form15, которая вылезает на окно всегда, когда происходит какое-либо событие. Опишу код программы:

Project.dpr

Код

Application.Initialize; Application.Title := 'VideoCollection'; Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm2, Form2); Application.CreateForm(TForm16, Form16); Application.Run;

Событие OnCreate для Form1:

Код

procedure TForm1.FormCreate(Sender: TObject); var s:string; begin   // выполнение каких-либо действий   s:='';   // проверка условия   if s='' then     begin       // вывод формы Form15 на экран       if not Assigned(Form15) then Form15:=TForm15.Create(Self);       Form15.ShowModal;     end   else     begin       // выполнение других действий     end; end;

Форма Form15 содержит информационное сообщение и кнопку - Закрыть. По щелчке на этой кнопке я вызываю следующее:

Код

Application.Terminate;

После всех этих действий, программа корректно завершает свою работу. Но перед тем, как ее завершить, на экране мелькает форма Form1. То есть она показывается, а потом резко исчезает! Как сделать так, чтобы данная форма на экран не выводилась, а программа сразу же после нажатия по кнопке Закрыть на форме Form15 прекращала свою работу? Что-то я запутался!

попробуй перед Form15.showModal;
поставить следущее:
Form1.visible:=false;

Перед Application.Terminate; вставь Form1.Close;. Хотя как то странно всё это...

Satana, Yanis, парни, ни один из ваших советов не помог!

MacTep ну попробуй тогда так:

Код

Application.ProcessMessages; Form1.visible:=valse; Application.ProcessMessages; Form15.ShowModal;

Это, конечно, не решение проблемы, но попробуй до Application.Terminate написать Form1.Top:=-1000
Форма может и будет мелькать, но этого не должно быть видно.

Ничего не помогает!

MacTep
Слушай, создай новый проект с 15 формами или как там у тебя сделай форму закрытия. Выложи на форум, потому что не особо понятно в чём у тебя проблема.

Это сообщение отредактировал(а) Yanis - 5.7.2005, 22:04

Цитата(MacTep @ 5.7.2005, 20:40)

Форма Form15 содержит информационное сообщение и кнопку - Закрыть.

А почему бы протсто не показать это информационное сообщение в ShowMessage или Application.MessageBox ?

Poseidon, потому что меня не устраивает его вид! хочу более красивое!

...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 22:35

А как переназначить главную форму?

Поставить в 15-ой BitBtn и назеначить ему mrClose
При щелчке форма 15 вроде сама закрывается, значит и нчиего не стоит вешать на обработку нажатия.. если нет, то вешаем Close;

вызов 15-ой

Код

if Form15.ShowModal = mrClose then Application.Terminate;

Добавлено @ 23:28
Черт.. такого нету... вот так нужно:
1) Савим на 15-ую BitBtn и ставим ModalResult = mrYesToAll
2) Создаем онклик на эту кнопку

Код

Close;

3) Вызов формы будет следующим:

Код

if Form15.ShowModal = mrYesToAll    then       Application.Terminate;

Не... не совсем то... итак:
1) в модуле Unit15 с 15-ой ставим в секции implementation

Код

uses Unit1;

2) На онклик буттона ставим:

Код

Form1.Visible:=False;  Application.Terminate;

У меня работает...

Итого: сначала "закрывается" первая форма, а потом и все приложение...
Добавлено @ 23:38
А если человек на нажал на кномку закрыть, то можно всегда таким образом вернуться к первой форме абсолютно безболезненно...
Добавлено @ 23:44
Как показали эксперименты, закрыть приложение так, чтобы одновременно закрылись формы практически невозможно... все время какая-то из них первая закрывается, а какая-то потом... получается, что так устроена система... Пока мне видится единственный выход - уничтожение процесса, связанного с приложением...

Pakshin A. S., что-то ничего не получилось! может ты что-то не так объяснил? или я что-от не догнал?