O
OnlyU
Unregistered / Unconfirmed
GUEST, unregistred user!
我做的一个程序中有一个封面，但是主窗体生成得太快了，封面闪一下就消失了
如何如何使程序封面多留一会儿？
如何如何使程序封面多留一会儿？
S
sword_liu
Unregistered / Unconfirmed
GUEST, unregistred user!
你可以搞个timer，到时再关呀！
W
weel
Unregistered / Unconfirmed
GUEST, unregistred user!
使用Timer，你想用多久就多久。
B
BeginDelphi
Unregistered / Unconfirmed
GUEST, unregistred user!
在你的封面的ONCLOSE中加SLEEP,想停多久都可以.
比如加入SLEEP(3000),就停3秒钟.
比如加入SLEEP(3000),就停3秒钟.
P
PFans
Unregistered / Unconfirmed
GUEST, unregistred user!
var
lStart: Longint;
begin
lStart:=GetTickCount;
while GetTickCount-lStart<=MilliSeconds do //其中MilliSeconds是你想延时的秒数
Application.Processmessage;
end;
lStart: Longint;
begin
lStart:=GetTickCount;
while GetTickCount-lStart<=MilliSeconds do //其中MilliSeconds是你想延时的秒数
Application.Processmessage;
end;
H
hamsoft
Unregistered / Unconfirmed
GUEST, unregistred user!
timer
或获取键盘、鼠标有输入即可关闭
或获取键盘、鼠标有输入即可关闭
A
asiasmm
Unregistered / Unconfirmed
GUEST, unregistred user!
网上有专门这类延时的控件，直接用就可以了
P
pnljh
Unregistered / Unconfirmed
GUEST, unregistred user!
我觉得没什么意义，真的要的话可以用timer控件
H
hpretty
Unregistered / Unconfirmed
GUEST, unregistred user!
sleep(5000)
大
大傻
Unregistered / Unconfirmed
GUEST, unregistred user!
用Timer,太简单了，抢分
T
toplor
Unregistered / Unconfirmed
GUEST, unregistred user!
只要将Application.Initialize和Application.run中的代码按如下修改即可：
Application.Initialize;
splashform:=tsplashform.create(application);//封面窗口
splashform.show;
splashform.update;
sleep(5000);//在这里可以修改时间延迟，1000＝1秒
Application.CreateForm(Tmainform, mainform);
Application.CreateForm(tform2,form2);
splashform.hide;
splashform.free;
Application.Run;
Application.Initialize;
splashform:=tsplashform.create(application);//封面窗口
splashform.show;
splashform.update;
sleep(5000);//在这里可以修改时间延迟，1000＝1秒
Application.CreateForm(Tmainform, mainform);
Application.CreateForm(tform2,form2);
splashform.hide;
splashform.free;
Application.Run;
萧
萧月禾
Unregistered / Unconfirmed
GUEST, unregistred user!
toplor是正确的[
]
]
Y
yupengmail
Unregistered / Unconfirmed
GUEST, unregistred user!
同意pfans