• delphi : 窗体的close,free,destroy


    一、我用application.create(TForm2,Form2)语句,创建了Form2,可是调用了Form2.close后,重新调用Form2.show. 刚才所创建的Form2仍然存在。问为了节约资源,应该怎样使用close,free,destroy. 三者的关系是什么?
    1、Action:=caFree。

    2、 with TForm1.Create(Application) do

               Try

                    ShowModal ;

                finally

                    Free;

            end.

    在FormClose里写上action := caFree.动态创建窗体用form2:=Tform2.create(application).

    释放action:=cafree.

    close,只是关掉窗体 .

    free,是释放内存资源

    destroy既关窗体也释放资源

    我理解的不知对不对还请高手进一步说明?

    用free就可以,方法和楼上一样,建议不用destory,用free先找,有就自动释放。如果是ShowModual 用FreeAndNil(form1). 来释放资源 

    Show 用 action := caFree . form1 := nil.

    来释放同意楼上,show,还可以用form1.release,  form1:=nil.来释放。最好在前面加上if form1 ……

    附:
    表示关闭的方法有如下几种:
    Hide
    Close
    Free
    Release
    Destroy
    Terminate
    FreeAndNil()
    Halt


    Free:先对象判断不为空再destroy。释放对象,对于窗体来说,只会释放对象,而不将窗体对象的指针指向nil,所以free后用assigned函数来判断还是返回true,只有freeandnil或free后再将指针指向nil。
    Destroy:不判断对象是否为空直接释放。如果对象已经释放的话会报错。用destroy不安全,可以说free是对destroy的封装和改进;
    Terminate:Application对象的方法,终止整个应用程序,对于控制台程序,必须用halt代替。
    Hide:只是将窗体做隐藏处理。
    Close:对于窗体而言,close与hide的区别是如果窗体内有方法执行,close会终止窗体对象所执行的方法.而hide不会释放窗体及其所有的对象,更不会使指针指向nil。
    Halt:终止整个应用程序。
    FreeAndNil (): 释放对象并把指针指向nil,比较的安全且效率会高些,能提高内存的利用率。
    Release:调用这个方法时会触发free 事件。Release可以在onshow的事件中调用而free不可以。Release等待资源不再使用后释放资源,同样不修改form指针为nil,所以最好使用release进行资源释放操作。
    在对窗体操作时,单纯通过assigned(form1)判断窗体是否已经创建是不够的,因为如果窗体通过free /release进行资源释放的话,form1指向的是一个未知地址,而非nil,所以需要用(not Assigned(ShowForm)) and (not (ShowForm is TForm2)) 来判断该窗体是否已经创建在内存中。 

  • 相关阅读:
    PostgreSQL 遇到 column "value" does not exist
    FlowPortal BPM官网改版了,推出20个流程免费基础版
    C#代码规范化(代码风格化)的几个函数
    批量更新带有命名空间的XML文件的多个节点值
    旺财C# .NET代码生成器之DTcms4/5代码批量生成功能
    C# Webform中读取Windows AD/LDAP域用户清单
    在吉日嘎拉DotNet.WebForm中使用FluentScheduler调度任务
    修复一个吉日嘎拉MSSQL数据库版中的分页存储过程bug
    基于吉日嘎拉的OA协同办公模块重写
    基于吉日嘎拉的通用权限管理WebForm版扩展:字典选项管理和缓存管理
  • 原文地址:https://www.cnblogs.com/jijm123/p/10877132.html
Copyright © 2020-2023  润新知