Delphi中的窗体,有模式窗体与非模式窗体两种。两种窗体的调用方式不同,模式窗体使用ShowModal显示,非模式窗体使用Show显示。当显示模式窗体的时候你是不能操作本程序的其他窗体的,你不能把焦点从模式窗体转到其他窗体上。而非模式窗体则没有这种限制,你可以从一个非模式窗体切换到另外一个非模式窗体上。两种窗体的区别仅仅在调用的方式上有区别。 窗体的创建: 当使用Delphi的IDE New一个窗体后,在Project1.dpr文件中,会出现一句 Application.CreateForm(TForm2, Form2); 意思是当程序启动的时候会创建TForm2类的Form2实例,也就是窗体2。这一过程是自动的,不管你是否调用显示Form2, 如果你不想随程序启动而创建窗体,而是动态的创建窗体,那么,你可以删除上面的那句代码,然后在程序中你想动态创建窗体的地方加上以下代码: //需要在头部引用TForm2所在的单元文件,并声明Form2变量。 Application.CreateForm(TForm2, Form2); 或者使用 //和上面一样,需要引用并声明。注意,一定不要直接这样写Form2.Create Form2 := TForm2.Create(Application); 两者没有特别大的区别,一般情况下是通用的。两者的主要区别在于,触发OnCreate事件的时候,第一种方法Form2变量已经指向了新生成的实例,外部代码可以直接调用Form2这个变量了,而第二种方法先调用TForm2的Create方法,再给Form2这个变量赋值,在OnCreate时Form2变量还是未定义的。这点区别比较小,基本上不会遇到,但是如果不明白其中的道理,又遇到这个问题的话会浪费你很多时间来调试的。 窗体销毁: 有创建,就必须有销毁,不然的话会产生内存泄漏。 当我们调用Form的Close或者点击窗体右上角的X时,窗体真的已经释放了么?答案是否定的,如果你想验证的话……你可以去看源码。对于程序自动生成的窗体,在程序结束的时候会自己释放,对于这种窗体,我不建议进行手动释放,除非你确定释放后绝对不会再用到这个窗体了,不然就会产生内存访问错误。 对于动态生成的窗体,一旦不再使用,一定要手动释放资源,不然你会看到程序占有内存疯狂上涨,然后就被任务管理器干掉了~手动释放主要有两种方式,第一种是显示调用Form.Free这个方法。对于上面用的例子Form2来说: Form2.Free; Form2 := nil; 至于为什么要将变量Form2赋值为nil,是为了防止此后的代码通过Form2变量访问已经被释放的TForm2实例。 procedureTForm2.FormClose(Sender: TObject; varAction: TCloseAction); begin Action := caFree; // TCloseAction = (caNone, caHide, caFree, caMinimize); Form2 := nil; end; 这两种方法没有什么本质区别,可以根据实际情况来使用,但是一定不要忘记在释放资源后将变量指向空,不然很容易出现非法访问的情况。实际上在TForm2的FormClose中写Form2 := nil 是无用的,应该写在创建Form2的单元中,因为这两个Form2变量是不同的,TForm2所在单元的Form2变量是一个私有变量,别人是访问不到的,别人可以访问到的,也就是可能触发非法访问的是在TForm2所在单元外的Form2变量(有点绕口令了,不知道大家看懂没有……)。 |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论