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

代码如下：问题是点击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

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

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息