Как закрыть все формы, кроме основной ?

← →
Vovaka (2002-11-14 10:09) [0]

В определенный момент необходимо закрыть все открытые формы, кроме основной. Перебором не хочется, форм очень много и кол-во постоянно меняется.

← →
BoxTer © (2002-11-14 10:16) [1]

А какже ишшо, придется
если MDI - приложение:

for i:=1 to MainForm.MDIChildCount do
form.MDIChildren[i].Close;

... в конце-концов, не млн же форм у тебя, отработает, и глазом моргнуть не успеешь.

← →
Vovaka (2002-11-14 10:28) [2]

А если не MDI ?

← →
Calm © (2002-11-14 10:40) [3]

В глобальной переменной Screen:TScreen есть список всех созданных форм.

TScreen.Forms[]

← →
Vovaka (2002-11-14 10:47) [5]

Спасибо всем.

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