关于“封面窗口”

[haofd]

作了一个小东西，现在想家一个“封面窗口”（就是程序运行起来后，它先显示一段时间，然后再显示主窗口的那种），我要怎么来做呢！

谢谢！！

[dreamfan]

加一个定时器，就搞定了

[DeathCat]

先创建一个窗体TForm;
在工程单元中加入
var
TF : TForm
begin
try
TF := TForm.Create;
TF.show;
finally
application.createform..........
.
.
.
TF.Destroy;
application.run;
end;

[haofd]

加了，可运行还是直接显示原来的主截面，新加的不起作用！
另外是不是可以给些CODE？

[luoweicaisd]

例:frmSplash为启动界面先将其移到动态创建再在project文件中
Application.Initialize;
Application.Title := '综合业务系统';
frmSplash := TfrmSplash.create(application);
frmSplash.Show;
frmSplash.Update;

..........

frmSplash.hide;
frmSplash.free;
Application.Run;

[Linux2001]

把你的主窗口从自动启动里面移除，把这个封面窗口加入进去，然后照楼上老兄的方法做

[ihihonline]

NO.1:
sleep(30000)//在frmSplash.pas中；
NO.2:
...
var
I Integer;
...
Application.Initialize;
Application.Title := '综合业务系统';
frmSplash := TfrmSplash.create(application);
frmSplash.Show;
frmSplash.Update;
// I ->Loop
..........

frmSplash.hide;
frmSplash.free;
Application.Run;