在DELPHI中是否有实现延迟几秒中的函数?(50分)

C

cq_wj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-11

• #1

我想在编程中用延迟几秒的函数来打开另外一个窗体,不知能否实现?

 

S

silicon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-11

• #2

Sleep(1000);
//1秒

 

Z

zeroworld

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-11

• #3

最好还是用Timer实现
Sleep会造成程序没有响应的

 

教

教父

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-11

• #4

procedure Wait(const Sec: Word);
var
wStart:LongWord;
begin
wStart:=GetTickCount;
while (GetTickCount-wStart) < (Sec*1000)do
Application.ProcessMessages;
end;

 

A

antic_ant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-11

• #5

楼上的正确

 

C

cq_wj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-11

• #6

多人接受答案了。