如何让程序等待你秒钟?(100分)

C

cxcsy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #1

如何让程序停止执行等待几秒钟,时间到后,继续执行,或通过按动键盘提前继续执行?

 

A

ABD2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #2

Sleep( ms)

 

N

netwinds

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #3

sleep不好用，这样子程序就不能动了，要让它停止运行，但又能操作其它地方才好用
可用 Timer 控件来控制，职可用 while ... do 来控制，但要记得要用
application..ProcessMessages 这样才不会不能动

 

T

twos

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #4

while 语句循环等待
while true do
application.processmessage;
if isKeydown then break;
end
类似于此把

 

Q

quickchop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #5

用sleep不好。
procedure wait(MillisecondsWORD);
var tempWORD;
begin
temp:=GetTicketCount;
while not GetTickCount-temp<Milliseconds do
Application.ProcessMessages;
end;

 

C

cxcsy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #6

多人接受答案了。