Сколько открыто дочерних окон?
Falk0ner, вс, 06/07/2008 - 15:34.
Form1.MDIChildCount
Закрыть все окна:
with Form1 do
For i := MDIChildCount-1 DownTo 0 Do
if Assigned(MDIChildren[i]) then
begin
MDIChildren[i].Close;
end;
For i := MDIChildCount-1 DownTo 0 Do
if Assigned(MDIChildren[i]) then
begin
MDIChildren[i].Close;
end;
Взято с http://delphiworld.narod.ru
Исправлено Bose
Взято с Vingrad.ru http://forum.vingrad.ru
Отправить комментарий