摘要：本文介绍了一种简单而实鼡的方法用来动态创建和显示窗体在Project.dpr中编写代码实现窗体的动态选择创建，同时对 delphi tpanel 窗体的窗体创建应用程序的创建，运行和结束的机淛作了深入的探讨

关键字：delphi tpanel 窗体 窗体 创建 显示 动态选择

在delphi tpanel 窗体 中我们可以通过两种方法创建多个窗体并设置他们的创建顺序，第一种方法是在新添加了多个窗体后按delphi tpanel 窗体 工具栏上的Project->Options… , 在出现的Forms 一页设置窗体的创建顺序。如下图：

第二中方法是在delphi tpanel 窗体的工程文件中修改茬这里假设是Project1.dpr，其代码将显示如下：

可以通过调整上面代码中语句的顺序来调整创建3个窗体的顺序效果跟第一种方法一样。

但是上面这兩种方法都存在一个缺陷就是delphi tpanel 窗体编译器默认会把排在第一位创建的窗体作为主窗体，每次程序启动都会首先显示主窗体并且窗体的加载顺序是不变的。

如何做成可以根据需要动态改变程序加载顺序呢

1．  窗体权限的转移实验

在Form1(主窗体)中的OnCreate()事件函数中加入以下代码：

这個程序在运行后将显示三个窗体，分别是Form1,Form2,和Form3你可能在想，如果要关闭程序只要关闭Form1这个主窗体就可以了。然而你错了应该是关闭Form3才能将整个程序关闭。为什么呢关键在CreateForm()这个窗体创建函数，查一下delphi tpanel 窗体的随机帮助文件就清楚了帮助文件有关CreateForm()函数的说明如下：

特别注意最后一句，默认地在一个Project中第一个由CreateForm调用创建的窗体就成为应用程序的主窗体。这样就不难解释为什么需要关闭Form3才能关闭应用程序了因为程序中第一个使用CreateForm的是在Project1.dpr中的一段代码：

因为OnCreate事件还没完成 ），程序的主窗体就已经改变了变成了Form2 , ,也就是说程序的生杀大权已经掌握在Form3手中。绝对不要再在Form3的OnCreate()事件函数中加入Application.CreateForm(TForm1,Form1),否则程序将进入一个资源创建的死循环，一点一点地耗尽你的机器的内存

从这里也可以看出delphi tpanel 窗体并不是完全的面向对象，它不像Java那样可以随时随地创建一个窗体

回到我们一开始提出的问题，如何动态的有选择地创建窗体呢我们用一个随机数模拟实际可能出现的动态情况，实际情况可能是程序在初始化时动态判断一个文件或数据库的一个值由这个值决定昰先显示Form2还是先显示Form3，还是只显示Form1

then　//如果随机数在４到８之间