|
Application.Run;
end.
在Form1的OnCreate()中的代码和代码5一样。Form2,Form3的OnCreate()不需要任何代码, 这时程序的关闭权限还是没有回到Form1的手里，其实我们只要在Form1的OnClose()中加入一句就行了：
Application.Terminate;
如果不加入这一句，则关闭Form1是不会关闭整个应用程序的，必须关闭Form2或Form3才行。 有些人可能会问，为什么不是Free而是Terminate呢？查一下Delphi的帮助文件关于Free的描述，其中有一个注意事项如下所述：
Warning: Never explicitly free a component within one of its own event handlers or the event handler of a component it owns or contains. For example, don’t free a button, or the form that owns the button, in its OnClick event handler.
可以看到，在Delphi中不能在一个组件它自己的事件处理中明确地释放这个组件。这就是为什么不能用Application.Free的原因。必须用Application.Terminate这一句来释放窗体创建的资源，否则将出现资源没有释放的错误。如何知道资源没有释放呢？在Delphi编译器则体现为Project在Running状态，并且需要通过Run->Program Reset来结束程序；另外，如果把程序Build了之后，脱离Delphi编译器直接运行程序，然后关闭Form1,这时候打开Windows的任务管理器，在进程一页将显示Project仍然在，占用着内存和CPU,需要通过结束进程来去掉它。
关于Application.Terminate,Delphi的帮助文件有这样的描述：
Call Terminate to end the application programmatically. By calling Terminate rather than freeing the application object, you allow the application to shut down in an orderly fashion.
这里，Delphi很明确的告诉我们，调用Terminate而不是Free,可以让应用程序以整齐的方式关闭。
到这里我们的任务还没结束，我们只是让Form1 和Form2或者是Form3有同等的关闭程序的权限，我们还要剥夺Form2或是Form3的程序关闭权，方法是在Form2和Form3的OnClose()事件函数中加入一句Application.Run，这样按Form2和Fomr3的关闭按钮都不会有什么反应了，当然也就不会关闭程序了。我们再添加一个按钮用来“关闭”窗体，在其Onclik事件中加入一句
Form2.Visible:=False;
所谓的关闭其实是把显示关闭，而不是把窗体关闭，窗体的资源是没有释放的。Delphi的帮助文件中关于Application.Run的描述不鼓励我们使用Run，但是从实际使用情况来看，并没有什么坏处，只是窗体的关闭按钮的功能被屏蔽掉了，但是我们有替代的办法，把窗体的BorderStyle属性设置成bsNone就可以把窗体的Title标题栏取掉，用其他按钮或者其他控件，代替标题栏上的最小化，最大化，关闭按钮。
到此为止，我们可以说是基本解决了本文开始提出的问题，但是还有一个重要问题我们忽略了，Fom1总是会出现，聪明的你可能想到了在Project.dpr中编写一些代码来处理，对极了，请看下面代码：
program Project1;
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,
Unit1 in ''''Unit1.pas'''' {Form1},
Unit2 in ''''Unit2.pas'''' {Form2},
Unit3 in ''''Unit3.pas'''' {Form3};
{$R *.res}
var
randomnum:Integer;
begin
Application.Initialize;
Randomize;//设置随机器
randomnum:=Random(10);//在0到10之间取随机值
if (randomnum>0)and (randomnum<=4)then//如果随机值在０到４之间
Begin
Application.CreateForm(TForm2, Form2);
End
else if (randomnum>4)and (randomnum<=8)then//如果随机数在４到８之间
Begin
Application.CreateForm(TForm3, Form3);
End
Else //如果随机数在８到10之间
Begin
Application.CreateForm(TForm1, Form1);
End;
Application.Run;
end.
实现以上代码后，Form1，Form2，Form3不用写任何处理代码，不用修改任何属性，就能解决我们的问题，我们可能要慨叹了，为什么一开始没想到这样做。
三． 总结
使用Appliation.CreateForm()的方法来动态创建窗体有它的局限性，本文介绍了一个简单而实用的方法用来动态显示窗体，这种方法的关键是设置一个标志，根据实际情况给标志赋值，等到全部窗体创建完毕后，根据所设标志决定需要显示的窗体。但是这种方法的缺点是所有的窗体都将被创建。本文介绍了另外一种方法，这种方法能真正实现动态选择创建窗体，但是同样存在缺点，就是程序关闭权限被平均化了，但是我们有相应的解决办法。这两种方法各有其优缺点，为此我们用到第三种方法，在Project.dpr中编写代码实现窗体的动态选择创建，到此则完满地解决了本文开始提出的问题。
如果读者有更好的建议或解决办法，欢迎指教，我的Email是allencnj@163.com.
上一页 [1] [2]
[Delphi程序]在DELPHI 文 本 和 图 形 的 打 印 [Delphi程序]在Delphi 中用程序实现自定义窗体的创建和显示顺序…
[Web开发]在Delphi 7中用dbexpress连接MySQL
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
