Delphi中的窗体创建与销毁

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

窗体的创建：

当使用Delphi的IDE New一个窗体后，在Project1.dpr文件中，会出现一句

1	Application . CreateForm(TForm2,Form2);

意思是当程序启动的时候会创建TForm2类的Form2实例，也就是窗体2。这一过程是自动的，不管你是否调用显示Form2，
Form2已经存在了，其OnCreate事件也已经触发了。这时候，如果你想显示Form2，那么可以显式调用Form2的Show或ShowModal方法，以非模式或模式显示窗体。

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

1 2	//需要在头部引用TForm2所在的单元文件，并声明Form2变量。 Application . CreateForm(TForm2,Form2);

或者使用

1 2	//和上面一样，需要引用并声明。注意，一定不要直接这样写Form2.Create Form2 := TForm2 . Create(Application);

 

两者没有特别大的区别，一般情况下是通用的。两者的主要区别在于，触发OnCreate事件的时候，第一种方法Form2变量已经指向了新生成的实例，外部代码可以直接调用Form2这个变量了，而第二种方法先调用TForm2的Create方法，再给Form2这个变量赋值，在OnCreate时Form2变量还是未定义的。这点区别比较小，基本上不会遇到，但是如果不明白其中的道理，又遇到这个问题的话会浪费你很多时间来调试的。

窗体销毁：

有创建，就必须有销毁，不然的话会产生内存泄漏。

当我们调用Form的Close或者点击窗体右上角的X时，窗体真的已经释放了么？答案是否定的，如果你想验证的话……你可以去看源码。对于程序自动生成的窗体，在程序结束的时候会自己释放，对于这种窗体，我不建议进行手动释放，除非你确定释放后绝对不会再用到这个窗体了，不然就会产生内存访问错误。

对于动态生成的窗体，一旦不再使用，一定要手动释放资源，不然你会看到程序占有内存疯狂上涨，然后就被任务管理器干掉了～手动释放主要有两种方式，第一种是显示调用Form.Free这个方法。对于上面用的例子Form2来说：

1 2	Form2 . Free; Form2 := nil ;

至于为什么要将变量Form2赋值为nil，是为了防止此后的代码通过Form2变量访问已经被释放的TForm2实例。
另一种方法是在窗体的OnClose事件中将变量Action设置为caFree。

1 2 3 4 5

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变量（有点绕口令了，不知道大家看懂没有……）。