打开一个窗体前如何关闭其他窗体？

Question

主窗体有个菜单，通过不同的菜单项打开不同的子窗体，我的问题是：
  在打开一个子窗体前，判断有无其他的字窗体存在，如果有，则将其他的子窗体都关闭掉，然后再打开新的子窗体，如果没有，则直接打开新的子窗体。求代码。谢谢！

Answer 1

好象有个MDICHILDCOUNT可以知道有多少个子窗口被打开了，，，

Answer 2

有 MdiChildren 属性，是子窗体的集合数组。

Answer 3

procedure TfrmMain.CloseAllMdiWindow;
var i:integer;
begin
  for i:=0 to FrmMain.MDIChildCount-1 do
  begin
    if frmMain.MDIChildren[i].Active then
      FrmMain.MDIChildren[i].Close;
  end;
end;