Скачать: CL | DM;

Закрыть все формы приложения   Найти похожие ветки 

← →
Dionnis   (2004-10-15 11:22) [0]

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

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

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

---

← →
1008 ©   (2004-10-15 11:29) [1]

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/

---

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


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


---

← →
Dionnis   (2004-10-15 11:48) [3]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.047 c