delphi延时程序
procedureTimeDelay(DT:Dword);vartt:dword;begintt:=gettickcount();whilegettickcount()-...
procedure TimeDelay(DT:Dword);
var
tt:dword;
begin
tt:=gettickcount();
while gettickcount()-tt<dt do
application.ProcessMessages;
end;
能帮我注释一下吗? 展开
var
tt:dword;
begin
tt:=gettickcount();
while gettickcount()-tt<dt do
application.ProcessMessages;
end;
能帮我注释一下吗? 展开
展开全部
procedure TimeDelay(DT:Dword);
var
tt:dword;
begin
tt:=gettickcount(); //取的当前计算机时间
while gettickcount()-tt<dt do//判断是否超出延迟的时间(单位毫秒)
application.ProcessMessages;
end;
var
tt:dword;
begin
tt:=gettickcount(); //取的当前计算机时间
while gettickcount()-tt<dt do//判断是否超出延迟的时间(单位毫秒)
application.ProcessMessages;
end;
追问
application.ProcessMessages;这句是啥意思?
追答
这句你其实可以不用理会,
Delphi7帮助文件是这么写的:
Interrupts the execution of an application so that it can process the event queue.
它是让你的程序在执行这个循环时不会出现假死的现象
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询