delphi mdi子窗体显示和释放的问题

Posted 2023-03-16

try Application.CreateForm(TFrm_Website,Frm_Website); Frm_Website.ShowModal; finally FreeAndNil(Frm_Website); end;我是这样调用的MDI子窗体，可是显示不出来，但是把FreeAndNil(Frm_Website);屏蔽掉就可以了，但是如果这样的话，岂不是不能释放MDI的子窗体了，但是如果在每个子窗体的close事件中加Action := caFree吧，窗体又太多，请教应该怎样正确合理的调用MDI子窗体。

调用的时候，假设MidForm是你的mid子窗体if not(CreateForm(MidForm))then
Application.CreateForm(TMidForm,MidForm);mid的关闭要这样直接在close事件里写MidForm.Destroy;就行了，这样可以反复调用，关掉也是可以重新打开~ 参考技术A showModal方法是以模式显示窗体，MDI子窗体的显示方法一般采用show方法 。至于MDI子窗体的释放，一般都是在MDI子窗体的OnClose和OnDestroy事件分别执行Action := caFree 和 Frm_Website := nil 来进行释放。 参考技术B 主窗体放个按钮写如下代码，同时每个子窗框的Close事件Action := caFree;
if self.MDIChildCount> 0 then self.ActiveMDIChild.Close;