| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Народ, как закрыть все MDIChild окна формы?

KIR ©   (2002-09-20 10:58:00) 

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

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;

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

---

KIR   (2002-09-20 11:31:00) [1]

спас!

---

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

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

---

vlv   (2002-09-20 11:23:00) [3]

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

---

Наверх