Delphi窗体的创建与销毁基础教程
来源:互联网 发布:电脑相册制作软件 编辑:程序博客网 时间:2024/06/05 22:36
Delphi中的窗体分为模式窗体和无模式窗体。二者的区别在于,用户可以在无模式窗体和其他窗体之间切换。这样,用户就可以同时工作于一个应用程序的几个部分。Delphi中窗体的初始化有两种情况,动态创建,和自动创建。通过show显示一个无模式窗体,ShowModal显示一个模式窗体。窗体有创建对应的也要考虑释放问题。当关闭一个窗体时,窗体并没有真正从内存中释放掉,它仍然存在于内存中,除非关闭了主窗体。因为模式窗体于无模式窗体的不同,所以二者的释放处理也有不同。
模式窗体的创建与释放
因为模式窗体可以判断什么时候关闭窗体,可以用一下代码来创建和释放窗体。
begin ModalForm := TModalForm.Create(Application);//动态创建窗体 try ModalForm.ShowModal;//显示模式窗体 finally ModalForm.Free; //释放窗体实例 //ShowMessage(BoolToStr(ModalForm = nil)); ModalForm := nil; //把窗体变量设为nil //ShowMessage(BoolToStr(ModalForm = nil)); end;end;
非模式窗体的创建与释放
begin Form1 := TForm1.Create(Application); Form1.show; end;
用上述代码会导致每次都创建窗体实例,从而消耗了大量的内存。
我们可以考虑让窗体只创建一次,同时在窗体关闭的时候将释放掉。
begin if not Assigned(ModalLessForm) then //确保只创建一个窗口 begin ModalLessForm := TModalLessForm.Create(Application); end; ModalLessForm.Show;end;
以上代码就是一个单例模式,确保只创建一次。当关闭窗体后,如果希望在内存中释放掉,就要处理器onClose事件,吧Action设为caFree,同时还要在onDestroy事件中将窗体变量指向nil。
procedure TModalLessForm.FormClose(Sender: TObject; var Action: TCloseAction);begin action := caFree; //当关闭窗口时释放窗体end;procedure TModalLessForm.FomDestroy(Sender: TObject);begin ModalLessForm := nil; //在窗口销毁时,把modalLessForm变量设为nilend;
阅读全文
0 0
- Delphi窗体的创建与销毁基础教程
- Delphi中的窗体创建与销毁
- Delphi MDI 子窗体的创建和销毁 [zhuan]
- 对象的创建与销毁
- session的创建与销毁
- 对象的创建与销毁
- C++基础教程(一) C++基础/对象的生成与销毁
- Delphi实现监视Windows窗口的创建销毁
- delphi中form创建及销毁事件的处理顺序
- delphi 窗体的创建和释放
- Delphi 窗体的创建 和 释放
- delphi 窗体的创建和释放
- delphi 窗体的创建和释放
- delphi 创建启动窗体
- 非模态对话框的创建与销毁
- APR内存池的创建与销毁
- Montouch多视图的创建与销毁
- 非模态对话框的创建与销毁
- HTML中让表单input等文本框不可编辑的方法
- Hibernate 更新部分更改的字段 hibernate update
- Play! framework开发规范
- 2.通过tcp提供daytime服务
- "(_Ptr_user&(_BIG_ALLOCATION_ALIGNMENT
- Delphi窗体的创建与销毁基础教程
- 消费金融首推即时沟通工具“马上”探索科技金融发展新方向
- 1.17 C# 泛型
- 打印方法
- openoffice命令行方式将word、excel、ppt转成pdf
- java 23种设计模式 深入理解
- 学生:无效文件.dsn问题
- 集成支付宝支付的坑
- Activity启动模式