请解决delphi MDI多次显示的问题

Question

代码如下：问题是点击treeview中的信息查询时仍旧会多次打开，请帮我检查下代码，该如何改。。谢谢 if ctrltreeview.Selected.Text='信息查询' then begin if f.MDIChildCount >= 1 then // 判断信息查询模块是否已打开 begin showwindow(f.Handle,SW_SHOWNORMAL); end else try begin //MDI窗口的调用方法 f:=tqryfrm.Create(fctpanel); //在fcpanel容器上创建窗体 f.Parent:=fctpanel; // 指定父窗体对象 f.BorderStyle:=bsnone; f.Align:=alclient; f.ParentWindow:=fctpanel.Handle; // 指定父窗体对象 f.Show; end; //在fctpanel中显示 except begin application.messagebox('界面引用错误','警告',mb_iconstop++mb_OK); close; logon.Close; end; end; //与try对应的end

Answer 1

子窗体在Close后并没有真正的关闭释放，如要彻底关闭需在子窗体的OnClose事件中加入Action:=caFree;