Delphi延时函数

来源：筏尚旅游网

无标题function Delay(MSecs: Longint):integer;//延时函数，MSecs单位为毫秒(千分之1秒)varFirstTickCount, Now: Longint;beginFirstTickCount := GetTickCount();repeatApplication.ProcessMessages;Now := GetTickCount();until (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount);end;第 1 页

因篇幅问题不能全部显示，请点此查看更多更全内容

查看全文

违法及侵权请联系：TEL:199 1889 7713 E-MAIL:2724546146@qq.com

本站由北京市万商天勤律师事务所王兴未律师提供法律服务