begin application.initialize; splashform:=tsplashform.create(application); splashform.show; splashform.update; while splashform.tmmaintimer.enabled do appliaction.processmessages; application.createform(tmainform,mainform); slashform.hide; splashform.free; application.run;end.窗体上有一个TTimer组件,它的Interva属性设为3000,当ONTIMER事件发生时,就拆行下面代吗: tmaintimer.enabled:=false;
...
Application.CreateForm(TForm1, Form1);
Application.Run;
..
在Application.CreateForm(TForm1, Form1); 前加入如下语句:
form2:=tform2.create(application);
form2.Show;
form2.Update;
然后在Application.Run;前面加入如下语句:
form2.hide;
form2.free;
http://expert.csdn.net/Expert/topic/2487/2487267.xml?temp=.5867273
sleep用之前需要申明什么吗 它又报错了
application.initialize;
splashform:=tsplashform.create(application);
splashform.show;
splashform.update; while splashform.tmmaintimer.enabled do
appliaction.processmessages;
application.createform(tmainform,mainform);
slashform.hide;
splashform.free;
application.run;end.窗体上有一个TTimer组件,它的Interva属性设为3000,当ONTIMER事件发生时,就拆行下面代吗:
tmaintimer.enabled:=false;