关于启动界面的时间控制！请求帮助！(50分)

C

cpilq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-13

• #1

begin
Application.Initialize;
FormFlash := TFormFlash.Create(Application); {启动界面}
FormFlash.Show;
FormFlash.Update; //sleep(2000);
Application.CreateForm(TMDIMainForm, MDIMainForm);
FormFlash.Hide;
FormFlash.Free;
Application.CreateForm(TFormChild1, FormChild1);
Application.CreateForm(TFormPassword, FormPassword);
Application.Run;
end.

如何解决时间的控制！//sleep(2000);原先是参与程序的！但是没有什么用处，我就
取消掉了！

 

K

kent3721

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-13

• #2

唔识。

 

5

52free

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-13

• #3

最好是所有的窗体都建立好了以后就FREE启动界面（针对所有窗体都是自动建立的）
如果窗体都是手工建立的那就要考虑一下时间控制的问题
建议不用sleep,这样的话启动界面象死机的一样，而是用gettickcount写一个空循环来控制
在空循环发出application.ProcessMessages的消息

 

O

oiwin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-13

• #4

越快越好,不必用sleep.

 

我

我就是菜鸟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-13

• #5

用gettickcount写一个空循环来控制,在空循环发出application.ProcessMessages的消息???


给个例子吧！

 

C

cpilq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-13

• #6

能够详细点吗？我是初学者！

 

Q

qaz2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-13

• #7

procedure TFrm_dl.FormCreate(Sender: TObject);
var
currentTime:Longword;
begin
currentTime:=GetTickCount div 1000;
while ((GetTickCount div 1000)<(currentTime+3)) do
end;
启动时间为3秒
另外＜DELPHI 5编程实例与技巧＞中的16.6.16有个例子，这本书网上很多的
在www.google.com中搜索有很多地方有下载

 

B

Bahl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-13

• #8

用TIMER控件不更简单吗？
《D5开发人员指南》上有这个例子！

 

C

Cardinal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-13

• #9

同意楼上

 

C

cpilq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-13

• #10

接受答案了.