Текущий архив: 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.048 c
