在MDI的任何一个子窗体的任何一个菜单项的单击事件中，加入什么代码可以把所有的子窗体全部关闭？（包括该菜单项所在的子窗体）。我的代

Question

if (mainform.ActiveMDIChild=gcgkform) or (mainform.ActiveMDIChild=tbyqsform) or (mainform.ActiveMDIChild=zbdjform) then
mainform.ActiveMDIChild.Close;
mainform.ActiveMDIChild.Free;为什么执行后，只能关闭该代码所在的单元文件对应的子窗体？而不能把所有的子窗体全部关闭？

Answer 1

while main_form.MDIChildCount<>0 do
       main_form.MDIChildren[0].Close;

Answer 2

For iCount:=MainForm.MdiChildCount-1 DownTo 0 Do
    MainForm.MDIChildren[iCount].Close;

Answer 3

谢谢两位老兄：huiwww(十足菜鸟) 和 BlueSoftEye(紫衣侠隐)。
huiwww(十足菜鸟)兄把思路给我了，但好象少了个循环；
BlueSoftEye(紫衣侠隐)兄很具体，什么都有。
为了公平起见，总共20分，huiwww(十足菜鸟)兄5分，BlueSoftEye(紫衣侠隐)兄15分。不知两位有意见吗？如果没有的话，等一下，我就要发分了。

Answer 4

To wnnnnnn6(谁说女子不能搞软件？！) ：^_^，太客气了！