|
在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] 下一页
[Delphi程序]在DELPHI 文 本 和 图 形 的 打 印 [Delphi程序]在Delphi 中用程序实现自定义窗体的创建和显示顺序…
[Web开发]在Delphi 7中用dbexpress连接MySQL
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
