howto_makedelayprocedure.htm

来自「对于学习很有帮助」· HTM 代码 · 共 1 行

HTM

1 行

<html><head><meta http-equiv=Content-Type content=text/html; charset=gb2312><meta name=GENERATOR content=Microsoft FrontPage 3.0><title>如何做一个通用的&quot;间隔&quot;过程</title><meta name=Microsoft Border content=none></head><body style=font-family: 宋体, serif; font-size: 9pt><center><span style=font-family: 宋体, serif; font-size: 12pt><b>如何做一个通用的“间隔”过程</b></span></center><center><span style=font-family: 宋体, serif; font-size: 9pt>西安 &nbsp;&nbsp;&nbsp;&nbsp; <a href=mailto:delphifan@990.net>梁&nbsp; 明</a></span></center><hr><ul> <li><span style=font-family: 宋体, serif; font-size: 9pt>如果注意到GetTickCount过程，那么要解决这个问题就容易了。 </span></li> <li><span style=font-family: 宋体, serif; font-size: 9pt><b>下面是源代码：<br> </b>procedure TForm1.Delay(msecs:integer);<br> var<br> From:longint;<br> begin<br> From:=GetTickCount;<br> repeat <br> Application.ProcessMessages; {不要让程序死沉}<br> until ((GetTickCount-From) &gt;= Longint(msecs));<br> end;<br> </span></li></ul><ul> <li><span style=font-family: 宋体, serif; font-size: 9pt><b>窗体As text代码（没有）</b></span></li></ul><ul> <li>　</li> <li>　</li> <li><span style=font-family: 宋体, serif; font-size: 9pt>版主：梁明<br> 日期：1999-03-09-19：35<br> E-mail：<a href=mailto:delphifan@990.net>delphifan@990.net</a></span></li></ul><hr></body></html>

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?

howto_makedelayprocedure.htm

howto_makedelayprocedure.htm - 源码说明

⌨️ 快捷键说明