MDI系统的问题！

Question

有没有比较好的MDI系统的源程序呀！
我生成MDI子窗体的方法：  
  
  if (frm_Quote = nil ) then
  begin
      frm_Quote := Tfrm_Quote.Create(Application);
  end
  else
  begin
      frm_Quote.Show;
  end;但关闭子窗体后，再次打开就会出现错误。请高手指点！！！！

Answer 1

你在frm_quote的onclose()中加入一句：action:=cafree;
就行了

Answer 2

我也不知道啊
 我也遇到这种问题
     在加action:=cafree  无用的  
   他是关闭子窗体时不是最小化是关闭
 帮你顶

Answer 3

在frm_quote的onclose()中已经加入一句：action:=cafree；
我在建立Tfrm_quote实例的时候已经将frm_quote释放。
  if (frm_Quote = nil ) then
  begin
     frm_Quote.free;
     frm_Quote := nil; 
     frm_Quote := Tfrm_Quote.Create(Application);
  end
  else
  begin
      frm_Quote.Show;
  end;
也报错！

Answer 4

if findcomponent('frm_quote') <> nil then
  frm_Quote := Tfrm_Quote.Create(self);
frm_Quote.Show;除了在frm_quote的onclose()中已经加入一句：action:=cafree；
frm_quote的formstyle要设置为fsMDIChild
同时主窗体的formstyle要设置为fsMDIForm