Delphi中设置定时器

在这里我写在网上学到的方法，后边写我自己的实例

相关原创链接：https://blog.csdn.net/zhouky1993/article/details/62039115
1、拖一个TTimer控件至界面上。

Enabled属性代表该定时器是否运行。

Interval属性代表定时器触发的间隔。其单位为毫秒。

如图，将这两个属性分别设为False和1000.

2、将table页切换至events（事件）。

如图选择OnTimer后面的空白处，双击。进去后写定时器到点触发后的代码。


procedure TForm1.tmr1Timer(Sender: TObject);
begintmr1.Enabled := False; //定时器到点触发时先暂停定时器，否则可能造成下一次定时器又到点触发了，但下面程序没时间执行ZkyInt := ZkyIntInterval div 1000;ShowMessage(IntToStr(ZkyInt));//显示这一次触发距离上一次有多少秒ZkyIntInterval := ZkyIntInterval + 1000;//下一次触发时间延迟1秒tmr1.Interval := ZkyIntInterval;tmr1.Enabled := True;//开启定时器
end;

3、拖一个按钮，写代码：


procedure TForm1.btn1Click(Sender: TObject);
begintmr1.Enabled := True;//点击按钮后，开始运行定时器
end;

运行程序后结果：
点击按钮后，隔1秒后，show出一个框。关闭该提示框后，过2秒，show出一个框。关闭该提示框后，过3秒。。。。以此类推。

//
自己实例
1.创建定时器

2.定时器在窗口初始化，以及触发事件，触发事件后的逻辑

Delphi中设置定时器相关推荐

delphi中设置系统时间方法
procedure TMainFrm.Timer1Timer(Sender: TObject); var systemtime:Tsystemtime; dt:TDateTime; begin ...
java 定时器时间设置_如何在Java中设置定时器？
所以答案的第一部分是如何做主题要求的事情,因为这是我最初对它的解释,有几个人似乎觉得很有帮助.这个问题后来被澄清了,我已经扩展了答案来解决这个问题. 设置计时器首先,您需要创建一个计时器(我使用的是 ...
vue项目中清除定时器（清除定时器不成功）
首先确认< router-view >外层是否有包裹了一层< keep-alive > 如果有包裹: <template><div><keep-a ...
Delphi中取得和设置硬盘上文件的创建日期、修改日期、访问日期、文件属性
Delphi中取得和设置硬盘上文件的创建日期.修改日期.访问日期.文件属性 function FileAge(const FileName: string): Integer; $[SysUtils. ...
关于delphi中多线程采用定时器的做法
delphi中的提供了一个tthread的多线程类,开发者可以根据自身的需要,定制相应功能的多线程,而定时器在多线程中有很广泛的应用,在这里,只说关于waitforsingleobject来做定时器的 ...
如何在网页中设置一个定时器计算时间？
写一个简单的计数js代码首先先写一个div,用于存放计数器,并且通过改变样式可以改变计数器的样子 <body> <div id="le"></div ...
vue中通过定时器设置倒计时，5秒倒计时
前言:有时候,在项目中,我们经常需要设置简单的倒计时功能,这个可以通过定时器来实现. 一.设置div显示倒计时数字 <div class="countCircle">& ...
html 定时刷新数据,js中，设置定时器每隔几秒刷新一次页面数据
页面加载进来,查询然后设置定时器每隔五秒刷新一次页面数据 fnSearch(); var interval3=setInterval(function(){ fnSearch(); },5000 ...
DELPHI 中 Window 消息大全使用详解
Window 消息大全使用详解导读: Delphi是Borland公司的一种面向对象的可视化软件开发工具. Delphi集中了Visual C++和Visual Basic两者的优点:容易上手.功能 ...

Delphi中设置定时器

在这里我写在网上学到的方法，后边写我自己的实例

Delphi中设置定时器相关推荐

最新文章

热门文章