Форум: "Основная";
Текущий архив: 2002.11.21;
Скачать: [xml.tar.bz2];
Вниз
Окна! Найти похожие ветки
← →
AndreyAG (2002-11-11 11:00) [0]Уважаемые мастера! Как закрыть все дочернии окна MDI Приложения ?
← →
Skyle (2002-11-11 11:05) [1]Оно?
procedure TForm1.Button1Click(Sender: TObject);
var I : Integer;
begin
for I := 0 to Form1.MDIChildCount - 1 do
Form1.MDIChildren[I].Free;
end;
← →
Marcus (2002-11-11 11:05) [2]Мужики, почитывайте хелп хоть иногда! Не пожалеете! Данный пример ноль в ноль содран с него
var
I: Integer;
begin
with Form1 do
for I := MDIChildCount-1 downto 0 do
MDIChildren[I].Close;
end;
← →
Skyle (2002-11-11 11:06) [3]
> Marcus (11.11.02 11:05)
А ты пробовал его выполнять?
← →
Skier (2002-11-11 11:06) [4]>AndreyAG
TForm.MDIChildCount + TForm.MDIChildren[...]
← →
Marcus (2002-11-11 11:13) [5]> Skyle
Пробовал. У меня отлично работает, если ты об этом
← →
Skyle (2002-11-11 11:28) [6]Может тогда я просто не так понимаю значение слова "Закрыть". У меня это только сворачивает окна, а не релизит... D5, если что...;)
← →
Marcus (2002-11-11 11:31) [7]> Skyle
А это зависит от того, что отвечаешь в Form.OnClose. Если CloseAction := caMinimize (по умолчанию), то правда только сворачивает, а если caFree, то убивает. Но в общем-то ты прав: лучше сразу говорить Free. Для надежности.
← →
Игорь Шевченко (2002-11-11 12:32) [8]
procedure TfMain.CloseAllMDIChilds;
begin
while ActiveMDIChild <> nil do begin
ActiveMDIChild.Release();
Application.ProcessMessages();
end;
end;
Работает на ура.
А вообще-то в FAQ пора, уже который раз пишу одно и то же
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.21;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.008 c
