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

Вниз

Народ, как закрыть все MDIChild окна формы?   Найти похожие ветки 

← →
KIR ©   (2002-09-20 10:58) [0]

сабж.
Я делаю так:

procedure CloseChildren;
var
i: Integer;
begin
For i := 1 to MainForm.MDIChildCount do
begin
If Assigned(MainForm.MDIChildren[i]) then
MainForm.MDIChildren[i].Close;
end;
end;

результат - ни фига...

---

← →
vlv ©   (2002-09-20 11:23) [1]

For i := MainForm.MDIChildCount - 1 downto 0 do
//... все то же самое

---

← →
REA   (2002-09-20 11:26) [2]

или
While MainForm.MDIChildCount > 0 Do
MainForm.MDIChildren[0].Close();

---

← →
KIR ©   (2002-09-20 11:31) [3]

спас!

---

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

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

Наверх

Память: 0.47 MB
Время: 0.014 c