在Delphi 中用程序实现自定义窗体的创建和显示顺序（2
作者：Siny 文章来源：中国教师站cn-teacher 点击数： 更新时间：2007-4-22 15:51:27
在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
相关专题：
 网友评论：（评论内容只代表网友观点，与本站立场无关！） |
- GOOGLE广告
阅读排行
|
