如何将一个窗体从彻底从内存中删除? 把action := caFree放在Form的OnClose事件.当Form关闭时所有占用的内存将被释放. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 看你的窗口是怎么显示的如果是用showmodal,那么参考下面代码Begin{}ModalForm := TModalForm.Create(Application);{}try{}{}if ModalForm.ShowModal = mrOk then{}{}{};{}finally{}{}ModalForm.free;{}{}ModalForm := nil;{}end;end.如果是用show参考下面代码Begin{}if not Assigned(Modeless) then {}{}Modeless := TModeless.Create(Application);//创建窗体{}Modeless.Showend;procedure TModeless.FormClose(Sender: TObject; var Action: TCloseAction);begin{}Action := caFree;//这个很重要!!!!!!!!!!!!end;procedure TModeless.FormDestroy(Sender:TObject);begin{}Modeless := nil ;//把Modeless 变量设为nilend; 当网络不通时,调用Web Service,捕捉不到异常 新手请教高手:如何给delphi文件打包安装!(我没分了) 双头显卡如何编程实现程序窗口的输出选择 控件的问题?? 菜鸟问题!!! 怎么判断程序运行在98上,还是2000/NT/XP上呢? 局域网聊天室编程中,如何实现不同网段可以通讯? ◆◆ 招聘Delphi程序员(兼职) ◆◆ 怎样写反汇编程序 我这是第三次问了,难道没有一个人懂吗? 我的电脑上没有ODBC驱动程序,怎样安装ODBC的驱动程序?到哪儿找安装程序? 怎么动态生成一个label数组,立即给分
如果是用showmodal,
那么参考下面代码
Begin
{}ModalForm := TModalForm.Create(Application);
{}try
{}{}if ModalForm.ShowModal = mrOk then
{}{}{};
{}finally
{}{}ModalForm.free;
{}{}ModalForm := nil;
{}end;
end.如果是用show
参考下面代码
Begin
{}if not Assigned(Modeless) then
{}{}Modeless := TModeless.Create(Application);//创建窗体
{}Modeless.Show
end;procedure TModeless.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
{}Action := caFree;//这个很重要!!!!!!!!!!!!
end;procedure TModeless.FormDestroy(Sender:TObject);
begin
{}Modeless := nil ;//把Modeless 变量设为nil
end;