MDI窗体的问题，急！谢谢各位！！！

[Grace2003]

请问MDI窗体下，如何当打开第二个子MDI窗体时关闭第一个MDI子窗体啊，也就是说如何保证当前打开的只能是一个子窗体，我是初学者，谢谢各位指点了，解决马上给分！

[menggirl]

onclose
action:=Cnfree;

[hhzqf1980]

while mainform.MDIChildCount<>0 do begin
mainform.MDIChildren[0].Close;
mainform.MDIChildren[0].Free;
end;

[程序x人生]

声明一个全局子窗体对象变量，动态创建子窗体，且在每次创建时，判断是否为空，否则销掉这个对象再重新创建

[menggirl]

cafree;
错了

[hhzqf1980]

procedure TMainForm.closeAll;
var
I: Integer;
begin
for I := MDIChildCount-1 downto 0 do
MDIChildren[I].Close;
end;

[10975037]

if self.MDIChildCount>0 then self.MDIChildren[0].Close;
CreateMDIChild('NONAME' + IntToStr(MDIChildCount + 1));

[chuxin1]

来晚了!

主窗口调用Form2的事件代码:
for i:=0 to Form1.MDIChildCount-1 do
Form1.MDIChildren[i].Close;
Application.CreateForm(TForm2, Form2);
Form2.Show();

Form2的OnClose事件代码:
Action := caFree;