Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.31;
Скачать: 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 вся ветка

Текущий архив: 2004.10.31;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
4-1095756933
HDD
2004-09-21 12:55
2004.10.31
Индификатор окна


1-1098092029
Aleksandr.
2004-10-18 13:33
2004.10.31
Что случается с длинной строкой?


10-1055225989
landy
2003-06-10 10:19
2004.10.31
DCOM в сети без домена


3-1096731972
DIS
2004-10-02 19:46
2004.10.31
FastReport и поле memo


1-1098078732
Павел
2004-10-18 09:52
2004.10.31
Автопрорисовка Формы.