DELPHI 中的Delay函数，利用GetTickCount和Application.ProcessMessages构建

最新推荐文章于 2024-07-25 13:23:47 发布
最新推荐文章于 2024-07-25 13:23:47 发布
阅读量5.3k 收藏 1
点赞数
分类专栏： 技术 文章标签： DELPHI Delay GetTickCount Application.ProcessM
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/guanking/article/details/10378821
版权
DELPHI 中的Delay函数，利用GetTickCount和Application.ProcessMessages构建
作者 关劲松

        delphi 开发中有些时候需要停留片刻，等待界面输入，或异步操作完成，如果使用sleep函数的话，整个程序都会停顿，界面还会出现冻结的情况。因此需要自行编写一个delay函数，以毫秒为单位控制等待时间。
        函数功能：GetTickCount返回（retrieve）从
最低0.47元/天 解锁文章
guanking
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
Delphi中三种延时方法及其定时精度分析
听风笔迹
03-24 2484
　　在Delphi中，通常可以用以下三种方法来实现程序的延时，即TTtimer控件，Sleep函数，GetTickCount函数。但是其精度是各不相同的。一、三种方法的简单介绍1）TTtimer控件　　TTtimer控件的实质是调用Windows API定时函数SetTimer和KillTimer来实现的，并简化了对WM_TIMER 消息的处理过程。通过设置OnTimer事件和Interval属性
Delphi中进行延时的4种方法
热门推荐
荣植华的专栏
06-05 2万+
 1、挂起，不占CPUsleep2、不挂起,占cpuprocedure Delay(msecs:integer);varFirstTickCount:longint;beginFirstTickCount:=GetTickCount;repeatApplication.ProcessMessages;until ((GetTickCount-FirstTickCount) >= Longint(m
delphi 中的delay函数
mrwu9902的专栏
03-05 1179
procedure Delay(msecs:integer);var Tick: DWord;Event: THandle;beginEvent := CreateEvent(nil, False, False, nil);try    Tick := GetTickCount + DWord(msecs);    while (msecs > 0) and (MsgWaitForMultiple
Delphi中三种延时方法
qq_33577118的博客
04-26 2716
Delphi中三种延时方法
Delphi 延迟函数
crkres9527
03-21 1271
//延迟函数：方法一 procedure delay(msecs:integer); var   Tick: DWord;   Event: THandle; begin   Event := CreateEvent(nil, False, False, nil);   try     Tick := GetTickCount + D
Delphi 线程TThread中的Synchronize()方法
小印丶的笔记
01-21 4224
RAD Studio 10.3.3 测试√ 关于线程也可以看看这篇：Delphi 线程的开始、暂停、继续、停止 目录窗体情况：代码： 小知识： RTL（Run-Time library），运行时库，包括System、SysUtils、Math三个单元，提供的函数与语言、编译器、操作系统及进程有关，RTL提供类之间继承于 TObject 和 RTL内部的类 VCL（Visual Component Library），可视化组件库，包括Graphics、classes、Controls等与类和组件
delphi延时函数，比sleep好多了
最新发布
linuxghs的专栏
07-25 111
/延时函数varTT: DWORD;beginend;
Delphi 延迟函数 比sleep 要好的多
乌拉大喵喵
12-28 1万+
原文：http://www.cnblogs.com/Bung/archive/2011/05/17/2048867.html //延迟函数：方法一 procedure delay(msecs:integer); var Tick: DWord; Event: THandle; begin Event := CreateEvent(nil, False, False, nil);
自己写的一些Delphi常用函数
qq_18932003的博客
10-28 333
unit JrCommon; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ShellAPI, CommDlg, MMSystem, StdCtrls, Registry, JrConsts, Winsock; //--------------...
重拾VB之二，毫秒篇
guanking的专栏
01-22 4603
重拾VB之二，毫秒篇 PMP 关劲松         鬼使神差，09年12月入职的公司仍使用VB开发软件，虽然并非专职开发，但也不得不在事隔4年之后，重新使用VB。     在vb中如何获得毫秒精度级别的时间？vb的时间函数不支持毫秒，需要利用windows的基本API，编写程序才能获取毫秒级别的时间精度。过程如下：        1 首先引入取系统时间方法，GetLocalTime
Access、SQLServer、Oracle常见SQL语句应用区别
guanking的专栏
05-08 4035
Access、SQLServer、Oracle常见SQL语句应用区别 关劲松 PMP     如果要兼容Access、SQL Server、Oracle三个数据库版本；我们在编写SQL语句的过程中，尽量使用一些通用的语句，但还是有些方面有些区别避免不了，现简单总结一下。 以下A代表Access,S代表SQL Server,O代表Oracle   1、取当前系统时间 A:Select
数据库技术概述——基本概念
guanking的专栏
05-31 3415
数据库技术概述——基本概念 关劲松 一、数据(Data)        数据是描述现实世界事物的符号记录，是用物理符号记录的可以鉴别的信息。        数据库(DataBase，简记为DB)        数据库是长期存储在计算机内、有组织的、可共享的数据集合。这种集合具有如下特点：        1、最小的冗余度        2、应用程序对数据资源共享
数据库中char、nvarchar和varchar区别
guanking的专栏
10-08 2878
数据库中char、nvarchar和varchar区别   char 为固定长度字节 varchar[(n)]        长度为      n      个字节的可变长度且非      Unicode      的字符数据。n      必须是一个介于      1      和      8,000      之间的数值。存储大小为输入数据的字节的实际长度，而不是      n
PoE供电应用研究
guanking的专栏
04-07 1549
PoE供电应用研究（一）                                   关劲松 PMP 2010-4-2 PoE简介 POE (Power Over Ethernet)指的是在现有的以太网Cat.5布线基础架构不作做何改动的情况下，在为一些基于IP的终端（如IP电话机、无线局域网接入点AP、网络摄像机等）传输数据信号的同时，还能为此类设备提供直流供电的技术。P
ComboBox读取数据库生成下拉列表的算法简化
guanking的专栏
03-31 1269
一个VB 的优化案例 关劲松 PMP   关于测试软件，ComboBox读取数据库生成下拉列表的算法简化。 原有代码：     要遍历整个表的数据。使用了两次嵌套循环，加if判断，加标志位处理。而且代码繁复，不易理解维护。     Combo1(1).Clear     Combo1(1).AddItem "6", 0     strSelect = "select * from
重拾VB之一，日志篇
guanking的专栏
01-19 1000
重拾VB之一，日志篇   PMP  关劲松       鬼使神差，09年12月入职的公司仍使用VB开发软件，虽然并非专职开发，但也不得不在事隔4年之后，重新使用VB进行开发。     首先是为自动化测试软件增加日志功能，将每天的数据记录到一个log文件。我为了方便使用了FSO对象，由于FSO对象包含在Scripting 类型库 (Scrrun.Dll)中，所以在使用前首先需要在在工程
重拾VB之四，日志加强篇
guanking的专栏
03-03 973
重拾VB之四，日志加强篇   关劲松 PMP     一、关于日志记录功能 主要功能点有 1 在程序目录下生成log目录，用于保存日志文件。 2 自动在log目录中，生成日志文件，文件命名用年月日定义，如20100119_log.log。 3 在日志文件中，每行记录一个时间点的运行内容。时间点的精度应该达到毫秒。 4 在日志文件中，每一行的记录内容为文本信息。 5 在需要记录
#include<easyx.h>中函数有什么
06-12
在 EasyX 库中，常见的函数有： 1. 初始化函数：initgraph、initwindow、initgraph3D； 2. 绘图函数：line、rectangle、circle、ellipse、arc、pieslice、polygon、fillrectangle、fillcircle、fillellipse、floodfill、putpixel、getpixel、moveto、lineto、polyline、setcolor、setfillcolor、setbkcolor、setbkmode、setlinestyle、settextcolor、settextstyle； 3. 输入输出函数：outtext、outtextxy、outtextrect、inputbox； 4. 鼠标函数：ismouseclick、getmouseclick、getmousex、getmousey、clearmouseclick； 5. 键盘函数：kbhit、getch、getche； 6. 时间函数：delay、Sleep； 7. 图像函数：loadimage、getimage、putimage、getwidth、getheight、free； 8. 其他函数：randomize、random、GetTickCount、MessageBox、PlaySound、ShellExecute。 以上仅列举了常见的函数，实际上 EasyX 库中还有很多其他的函数，可以根据具体需求进行查阅。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值