Главная страница
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.039 c
14-1097336579
Knight
2004-10-09 19:42
2004.10.31
Pain killer...


1-1097519162
PC
2004-10-11 22:26
2004.10.31
Динамическое создание объектов на форме.


1-1097686792
AlexKocharin
2004-10-13 20:59
2004.10.31
Копирование Printer.Canvas в Bitmap


14-1097652412
AlexG
2004-10-13 11:26
2004.10.31
Мысли программиста (дурацкие)


8-1091536814
debuger
2004-08-03 16:40
2004.10.31
Масштабирование картинки