delphi 立即停止timer


本文整理自网络,侵删。

 
问题:我设置timer1.enabled := false;后,当OnTimer事件中未执行完时,还是会执行下面的语句。
有没有方法可以直接停止执行。不管下面的语句有没有执行。
谢谢。
回复:没有直接停的办法,只有在OnTimer事件中加上Timer1.Enabled的判断。如:
procedure TForm1.Timer1Timer(Sender: TObject);
var
  i: Integer;
begin
  if not Timer1.Enabled then
    Exit;

  for i := 0 to 999 do
  begin
    if not Timer1.Enabled then
      Exit;
  end;
end;

相关阅读 >>

Delphi读取文本(一行一行读入)

Delphi 几个实用的html解析函数

Delphi x 的 y 次方

Delphi 最简单的文件大小bytes转mb

Delphi显示jpg、png、gif图片

Delphi xe6 取得app自己的版本号(横跨4个平台)

Delphi android 关闭应用程序对话框询问

Delphi10.3.1安卓照相

Delphi剪切板-监视剪贴板

Delphi编程之系统oem diy

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...