如何创建一个MDIChild窗体

Question

先判断是否已经创建。
ar
  i:integer;
  b:boolean;
begin
  b:=true;
  for i:=mdiChildCount-1 downto 0 do
    if MDIChildren[i].Name='form1' then
    begin
       form1.Show;
       b:=false;
       break;
    end;
  if b then
  begin
    form1:=TForm.Create(nil);
    form1.Show;
  end;
end;
比较复杂！！：）

Answer 1

子窗体关闭时，在ONCLOSE事件里加两句：
begin
   Form1:=nil;
   Action:=CaFree;
end;
创建窗体代码如下：
   if ( Form1=nil ) then
      begin
        Form1 := TForm1.Create(Application) ;
      end
   Else
      Form1.WindowState :=wsNormal;
   Form1.Show ;

Answer 2

snowglave(时代超人) 没错了，给分吧