Delphi中设置定时器

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

相关原创链接:https://blog.csdn.net/zhouky1993/article/details/62039115
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));//显示这一次触发距离上一次有多少秒

  ZkyIntInterval := ZkyIntInterval + 1000;//下一次触发时间延迟1秒

  tmr1.Interval := ZkyIntInterval;

  tmr1.Enabled := True;//开启定时器

end;


3、拖一个按钮,写代码


procedure TForm1.btn1Click(Sender: TObject);

begin

  tmr1.Enabled := True;//点击按钮后,开始运行定时器

end;

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

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




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












联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678