| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Закрыть все формы приложения [D5, Win2k]

Dionnis ©   (2004-10-15 11:22:00) 

Добрый день всем! Вобщем вопрос у меня такой: есть приложение, и нужно закрыть все формы (кроме главной) например при нажатии кнопки. Писать что то типа:

if Assigned(Form1) then
 Form1.Close;
...
if Assigned(FormN) then
 FormN.Close;

Очень не хочется, может есть более простой способ?

---

Dionnis   (2004-10-15 11:48:00) [1]

Мои формы не MDI.

Во спасибо большое! Вариант SeM'а подошёл! 8-)

---

-SeM-   (2004-10-15 11:39:00) [2]


var i: Integer;
begin
 for i:=0 to Screen.FormCount -1 do
   if Screen.Forms[i] <> Self then
     Screen.Forms[i].Close;
end;


---

1008   (2004-10-15 11:29:00) [3]

Dionnis  (15.10.04 11:22)

Если это MDI то можно попробовать:

var
 i: integer;
begin
 for i:= 0 to MdiChildCount - 1 do
   MDIChildren[i].Close;
end;


http://www.delphiworld.narod.ru/

---

Наверх