Delphi窗体创建释放过程及单元文件小结（转）

Delphi窗体创建释放过程及单元文件小结

Delphi中的窗体，有模式窗体与非模式窗体两种。两种窗体的调用方式不同，模式窗体使用ShowModal显示，非模式窗体使用Show显示。当显示模式窗体的时候你是不能操作本程序的其他窗体的，你不能把焦点从模式窗体转到其他窗体上。而非模式窗体则没有这种限制，你可以从一个非模式窗体切换到另外一个非模式窗体上。两种窗体的区别仅仅在调用的方式上有区别。

窗体的创建：

当使用Delphi的IDE New一个窗体后，在Project1.dpr文件中，会出现一句Application.CreateForm(TForm2, Form2);意思是当程序启动的时候会创建TForm2类的Form2实例，也就是窗体2。这一过程是自动的，不管你是否调用显示Form2，Form2已经存在了，其OnCreate事件也已经触发了。这时候，如果你想显示Form2，那么可以显式调用Form2的Show或ShowModal方法，以非模式或模式显示窗体。

如果你不想随程序启动而创建窗体，而是动态的创建窗体，那么，你可以删除上面的那句代码，然后在程序中你想动态创建窗体的地方加上以下代码：

Application.CreateForm(TForm2, Form2);或者使用Form2 := TForm2.Create(Application);两者的主要区别在于，触发OnCreate事件的时候，第一种方法Form2变量已经指向了新生成的实例，外第二种方法先调用TForm2的Create方法，再给Form2这个变量赋值，在OnCreate时Form2变量还是未定义的。

窗体销毁：

有创建，就必须有销毁，不然的话会产生内存泄漏。对于程序自动生成的窗体，在程序结束的时候会自己释放，对于这种窗体，我不建议进行手动释放，除非你确定释放后绝对不会再用到这个窗体了，不然就会产生内存访问错误。对于动态生成的窗体，一旦不再使用，一定要手动释放资源，手动释放主要有两种方式，第一种是显示调用Form.Free这个方法。对于上面用的例子Form2来说：

Form2.Free;

Form2 := nil;

要将变量Form2赋值为nil，是为了防止此后的代码通过Form2变量访问已经被释放的TForm2实例。

另一种方法是在窗体的OnClose事件中将变量Action设置为caFree。

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Action := caFree; // TCloseAction = (caNone, caHide, caFree, caMinimize);

Form2 := nil;

end;

这两种方法没有什么本质区别，可以根据实际情况来使用，但是一定不要忘记在释放资源后将变量指向空，不然很容易出现非法访问的情况。实际上在TForm2的FormClose中写Form2 := nil 是无用的，应该写在创建Form2的单元中，因为这两个Form2变量是不同的，TForm2所在单元的Form2变量是一个私有变量，别人是访问不到的，别人可以访问到的，也就是可能触发非法访问的是在TForm2所在单元外的Form2变量。

注：Delphi无论释放窗体还是其它什么变量，都是使用Free而不是Destroy方法，后者是内部调用的，在FormCreate或Free方法被调用时会自动调用到。

Delphi 单元文件结构

unitUnit1;

interface

{接口部分开始}

uses

{引用单元列表,这是可选的,如果包含必须紧跟interface关键字}

{接口部分声明常量/类型/变量/过程和函数,这些声明对引用单元就像自己的声明一样}

{在接口部分声明的过程和函数,就像使用了forward关键字}

{接口部分结束}

implementation

{实现部分}

uses

{如果包含uses字句,必须紧跟关键字implementation}

{在这里实现interface中定义的过程和函数,可以任意顺序的定义和调用.}

{在这里可以省略过程和函数的列表,如果包括,必须一样.}

{可以定义单元私有的常量/类型(包括类)/变量/过程和函数,但这些对引用单元的客户是不可见的}

{$R *.dfm}

{如果是对应窗体的单元文件,会有这句. $R 指令用于加载一个外部资源文件, 这里是指加载同名的窗体文件一起编译.}

initialization

{初始化部分}

{程序启动时先执行,并顺序执行}

{一个单元的初始化代码运行之前,就运行了它使用的每一个单元的初始化部分}

finalization

{结束化部分,程序结束时执行}

end.