delphi mdi子窗体显示和释放的问题
tryApplication.CreateForm(TFrm_Website,Frm_Website);Frm_Website.ShowModal;finallyFree...
try Application.CreateForm(TFrm_Website,Frm_Website); Frm_Website.ShowModal; finally FreeAndNil(Frm_Website); end;我是这样调用的MDI子窗体,可是显示不出来,但是把FreeAndNil(Frm_Website);屏蔽掉就可以了,但是如果这样的话,岂不是不能释放MDI的子窗体了,但是如果在每个子窗体的close事件中加Action := caFree吧,窗体又太多,请教应该怎样正确合理的调用MDI子窗体。
展开
3个回答
2013-04-11
展开全部
调用的时候,假设MidForm是你的mid子窗体if not(CreateForm(MidForm))then
Application.CreateForm(TMidForm,MidForm);mid的关闭要这样直接在close事件里写MidForm.Destroy;就行了,这样可以反复调用,关掉也是可以重新打开~
Application.CreateForm(TMidForm,MidForm);mid的关闭要这样直接在close事件里写MidForm.Destroy;就行了,这样可以反复调用,关掉也是可以重新打开~
展开全部
showModal方法是以模式显示窗体,MDI子窗体的显示方法一般采用show方法 。至于MDI子窗体的释放,一般都是在MDI子窗体的OnClose和OnDestroy事件分别执行Action := caFree 和 Frm_Website := nil 来进行释放。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
主窗体放个按钮写如下代码,同时每个子窗框的Close事件Action := caFree;
if self.MDIChildCount> 0 then self.ActiveMDIChild.Close;
if self.MDIChildCount> 0 then self.ActiveMDIChild.Close;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询