Как закрыть все окна приложения?

← →
Mars (2005-05-31 11:22) [0]

Может сообщение какое есть?

← →
Игорь Шевченко © (2005-05-31 11:28) [1]

WM_SYSCOMMAND + SC_CLOSE главному окну ?

← →
Anatoly Podgoretsky © (2005-05-31 11:28) [2]

MainForm.Close
Application.Terminate

← →
Mars (2005-05-31 11:45) [3]

не, это ведь все приложение закроет, а надо чтобы
главная форма осталась

← →
Игорь Шевченко © (2005-05-31 11:47) [4]

> а надо чтобы
> главная форма осталась

Вопрос формулируй нормально

← →
Mars (2005-05-31 12:40) [5]

>>Игорь Шевченко
...так ведь спрашивал, как закрыть окна, а не приложние

Так есть какое нибудь сообщение для этих целей,
чтобы осталось только главное окно?

← →
Игорь Шевченко © (2005-05-31 12:43) [6]

> Так есть какое нибудь сообщение для этих целей,
> чтобы осталось только главное окно?

Нету.

← →
злобная танька (2005-05-31 12:48) [7]

прогони в цикле Application.Components.
Если is TForm и <> MainForm тады закрывай!

← →
Digitman © (2005-05-31 12:49) [8]

> чтобы осталось только главное окно

как только найдешь четкое определение "главного окна" - сразу все вопросы отпадут

← →
Digitman © (2005-05-31 12:50) [9]

> злобная танька (31.05.05 12:48) [7]
> и <> MainForm

и чем MainForm провинилась ?
она что, не имеет окна по-твоему ?

← →
Anatoly Podgoretsky © (2005-05-31 12:54) [10]

Mars (31.05.05 11:45) [3]
Что просил, то и получил. Отсюда вывод просить нужно только нужное.

← →
злобная танька (2005-05-31 12:57) [11]

> Digitman © (31.05.05 12:50) [9]
я вас не вполне понимаю, но как просил автор,

> надо чтобы
> главная форма осталась

вот я и тово..

← →
Mars (2005-05-31 12:58) [12]

>>злобная танька (31.05.05 12:48) [7]
>>прогони в цикле Application.Components.
>>Если is TForm и <> MainForm тады закрывай!

Спасибо! Получилось.

← →
злобная танька (2005-05-31 13:03) [13]

пожабо! :D

← →
KilkennyCat © (2005-05-31 13:27) [14]

а у меня пишет, что MainForm несуществует :(

← →
Просто Джо © (2005-05-31 13:39) [15]

> [14] KilkennyCat © (31.05.05 13:27)
> а у меня пишет, что MainForm несуществует :(

Уметь надо (ц) :))

← →
Digitman © (2005-05-31 13:51) [16]

> злобная танька (31.05.05 12:57) [11]
> я вас не вполне понимаю, но как просил автор

автор просил "чтобы осталось только главное окно" (см.[5])

MainForm же не есть "главное окно".

а то что автор не видит разницы между "главным окном приложения" и "основной формой" - это его личная драма)

← →
злобная танька (2005-05-31 13:59) [17]

> Digitman © (31.05.05 13:51) [16]

гм, я вот тоже не вижу. наверное поэтому мы поняли друг друга. а в чем она, разница-то?

Вообще то автор просил все окна приложения, это включает в себя и главное окно приложения.

> злобная танька (31.05.05 13:59) [17]

в том что главное окно создается объектом Application еще ДО создания главной формы (если она вообще есть), это окно невизуальное, не имеет никакого отношения к главной форме и создается всегда в ходе создания объекта Application (при IsLibrary = False), ВНЕ зависимости от того, есть ли хотя бы одна форма в приложении или нет ни одной.

← →
Mars (2005-05-31 14:13) [20]

ну че вы с пустого в порожнее переливаете?
все получилось!

хотите обсудить, вот вам процедура:

for n:=0 to Application.ComponentCount-1
do begin
if (Application.Components[n] is TForm)
and(Application.Components[n].Name <> "ОСНОВНАЯ_ФОРМА")
and((Application.Components[n] as TForm).Visible)
then (Application.Components[n] as TForm).Close;
end;

> Mars (31.05.05 14:13) [20]

объект-компонент-форма не обязан иметь владельцем объект Application

> and(Application.Components[n].Name <> "ОСНОВНАЯ_ФОРМА")

Это шедевр.

В общем, смысл следующий: приложение вообще не знает сколько у него окон. Безответственное приложение :)

Вообще то приложение четко знает сколько у него создано форм. Насчет окон конечно не знает.

Как закрыть все окна приложения? Найти похожие ветки