delphi 定时器的简单应用-TTimer控件

最新推荐文章于 2024-08-22 14:32:54 发布

我欲混吃与等死

最新推荐文章于 2024-08-22 14:32:54 发布

阅读量1.3w

点赞数 1

分类专栏： delphi 文章标签： delphi 定时器 TTimer

本文链接：https://blog.csdn.net/zhouky1993/article/details/62039115

版权

本文介绍了如何在Delphi中使用TTimer控件创建定时器应用。通过设置TTimer的Enabled属性为False和Interval属性为1000毫秒，可以实现每1秒触发一次OnTimer事件。在OnTimer事件中编写代码，每次触发后会按预设间隔显示消息框。

摘要由CSDN通过智能技术生成

1、拖一个TTimer控件至界面上。

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

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

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

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

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

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