在Delphi 中用程序实现自定义窗体的创建和显示顺序（2）

以上方法虽然可以实现动态的有选择地创建和显示窗体，但是有一个致命的弱点，就是程序关闭权限的转移，不能保留Form1的程序关闭权限。怎样真正实现有选择的创建和显示窗体，并且能保持Form1为主窗体呢？方法如下：

把3个窗体都放置在Auto-create forms里面，即3个窗体都自动创建。

在Form1中设置一个全局变量

var

  flag:Integer;

然后把上面Form1那段代码改成如下所示：

procedure TForm1.FormCreate(Sender: TObject);

var

  randomnum:Integer;

begin

  flag:=0;

  Label1.Caption:=''''Form1 Create Complete!'''';

  Randomize;

  randomnum:=Random(10);

  if (randomnum>0)and (randomnum<=4) then

    flag:=2

  else if (randomnum>4)and (randomnum<=8) then

    flag:=3

  else

    flag:=1;

end;

   （代码6）

然后，在Form2的OnCreate() 事件中加入以下代码：

procedure TForm2.FormCreate(Sender: TObject);

begin

  Label1.Caption:=''''Form2 Create Completed!'''';

end;

在Form3的OnCreate() 事件中加入以下代码：

procedure TForm3.FormCreate(Sender: TObject);

begin

  Label1.Caption:=''''Form3 Create Complete!  ('''' +IntToStr(flag)+'''')  '''';

  Form3.Hide;

  if flag=3 then

  Begin

    Form3.Visible:=True;

  End

  else if flag=2 then

  Begin

    Form2.Visible:=true;

  End

  else if flag=1 then

  Begin

    Form1.Show;

 end;

   （代码7）

还要记得把Form2和Form3的FormStyle属性改成fsStayOnTop,把Form1的FormStyle属性设成fsNormal，否则无法在屏幕的最前端显示所需要的窗体。把Form2和 Form3的Visible属性设成False,否则程序将无法正确地Focus（聚焦）于所需窗体。经过这样的修改之后就能根据随机结果选择最终要显示的窗体。

分析一下上面的过程可知道，窗体1，2，3是按顺序创建的，但是在Form1的创建过程中设置了一个全局变量作为记录的标记，记录应该显示的是哪个窗体，Form2的创建过程没有做任何动作，只是简单的一个显示信息，而在Form3的创建过程中则判断标志flag的值，由此决定究竟应该显示哪个窗体。

注意到主窗体是一定会显示出来的，这也是Form1的Visible没有设置成 False的原因，因为即使设置成False，也是会显示出来的。

以上所说的方法，其中的3个窗体都是已经被完全创建的，只是其中一个或两个没显示出来而已（设置成Visible为False），如果现在打开Spy++，可以清楚地看到3个窗口都在。但是我们的目的不仅仅如此，我们还要实现窗体创建的动态性和选择性。

前面说过使用Appliation.CreateForm()的方法来动态创建窗体有它的局限性，就是所谓的权限的转移。实际上我们可以改变这种情形，方法如下：

在Project1.dpr中只创建Form1

begin

  Application.Initialize;

  Application.CreateForm(TForm1, Form1);

[1] [2]  下一页