如何同时关闭多文档窗体中所有的子窗体?

Question

我要在不确定哪些子窗体被开启的前提下，同时关闭所有的子窗体，请问有什么简单的方法？

Answer 1

For I := 0 to YourMdiMainForm.MDIChildCount -1 do
  begin
    YourMdiMainForm.MDIChildren[i].Close;
    YourMdiMainForm.MDIChildren[i].free;
  end;

Answer 2

如果要关闭所有子窗体，请不要加
YourMdiMainForm.MDIChildren[i].free;因为子窗体close事件中加了action:=cafree;
本来就将窗体释放，没有必要再释放一次