C
cxcsy
Unregistered / Unconfirmed
GUEST, unregistred user!
如何让程序停止执行等待几秒钟,时间到后,继续执行,或通过按动键盘提前继续执行?
A
ABD2002
Unregistered / Unconfirmed
GUEST, unregistred user!
Sleep( ms)
N
netwinds
Unregistered / Unconfirmed
GUEST, unregistred user!
sleep不好用，这样子程序就不能动了，要让它停止运行，但又能操作其它地方才好用
可用 Timer 控件来控制，职可用 while ... do 来控制，但要记得要用
application..ProcessMessages 这样才不会不能动
可用 Timer 控件来控制，职可用 while ... do 来控制，但要记得要用
application..ProcessMessages 这样才不会不能动
T
twos
Unregistered / Unconfirmed
GUEST, unregistred user!
while 语句循环等待
while true do
application.processmessage;
if isKeydown then break;
end
类似于此把
while true do
application.processmessage;
if isKeydown then break;
end
类似于此把
Q
quickchop
Unregistered / Unconfirmed
GUEST, unregistred user!
用sleep不好。
procedure wait(Milliseconds
WORD);
var tempWORD;
begin
temp:=GetTicketCount;
while not GetTickCount-temp<Milliseconds do
Application.ProcessMessages;
end;
procedure wait(Milliseconds
WORD);var temp
WORD;begin
temp:=GetTicketCount;
while not GetTickCount-temp<Milliseconds do
Application.ProcessMessages;
end;
C
cxcsy
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。