delphi 自带的Timer控件,使用方便,但它的 OnTimer 事件是在主线程中引发的。

如果在事件中执行较耗时的代码,会引起主界面假死。故实现一个线程的Timer就有必要了。

TThreadTimer 基于 TSimpleThread 继承而来。

本例源码下载

unit uThreadTimer;

interface

uses
uSimpleThread; type TThreadTimer = class; // 提前申明 TThreadTimer 是一个类 TOnThreadTimer = procedure(Sender: TThreadTimer) of object;
// 此处就可以引用 TThreadTimer,这种写法避免将 Sender 写为 TObject;
// 为什么要写这个 sender ,主要是为了区别是谁引发了事件,并且 sender 上可以带参数
// 方便进一步使用 TThreadTimer = Class(TSimpleThread)
private
FInterval: Cardinal;
FOnThreadTimer: TOnThreadTimer; procedure CountTimer;
procedure DoCountTimer;
procedure SetInterval(val: Cardinal);
procedure SetOnThreadTimer(val: TOnThreadTimer); procedure DoOnThreadTimer; // 请学习此写法 public
constructor Create(AAllowActiveX: Boolean = false); // AAlowActiveX 在父类中有说明
procedure StartThread; override; // 重载父类的 StartThread
property Interval: Cardinal read FInterval write SetInterval default ; // 这个 default 1000 是给人看的,不会产生实际作用。
// 故还需要在 Create 事件中指定 FInterval:=1000;
// 如果可视化控件的 published 块中,此值会显示在属性编辑框中 property OnThreadTimer: TOnThreadTimer read FOnThreadTimer write SetOnThreadTimer; End; implementation { TThreadTimer } procedure TThreadTimer.CountTimer;
begin
ExeProcInThread(DoCountTimer);
// 将 DoCountTimer 置入线程中去执行
// 这是 TSimpleThread 的用法
end; constructor TThreadTimer.Create(AAllowActiveX: Boolean);
begin
inherited Create(AAllowActiveX);
FInterval := ; // 默认间隔时间为 1 秒
end; procedure TThreadTimer.DoCountTimer;
begin if WaitStop then // 这是父类的一个属性,表示线程现在需要停止了。
exit; SleepExceptStopped(FInterval); // sleep 指定的时间,如果中途接到退出指令,则马上响应。
// 父类中有源码,可看一看 if not WaitStop then
begin
DoOnThreadTimer; // 引发时间到事件
end; CountTimer; // 再次在线程中执行 DoCountTimer;
// 父类已经设计好了,就这样简单地调用,即可实现在线程中执行本过程,但又不会引起“递归” end; procedure TThreadTimer.DoOnThreadTimer;
begin
if Assigned(FOnThreadTimer) then
FOnThreadTimer(Self);
// 把这句写为一个过程,看似啰嗦,但为了程序可读性,是值得的。
end; procedure TThreadTimer.StartThread;
begin
inherited;
CountTimer; // 启动计时
end; procedure TThreadTimer.SetInterval(val: Cardinal);
begin
FInterval := val;
end; procedure TThreadTimer.SetOnThreadTimer(val: TOnThreadTimer);
begin
FOnThreadTimer := val;
end; end. uThreadTimer.pas

附:delphi 进阶基础技能说明

http://www.cnblogs.com/lackey/p/5411389.html

Delphi 线程Timer (TThreadTimer)的更多相关文章

  1. TMsgThread, TCommThread -- 在delphi线程中实现消息循环

    http://delphi.cjcsoft.net//viewthread.php?tid=635 在delphi线程中实现消息循环 在delphi线程中实现消息循环 Delphi的TThread类使 ...

  2. TMsgThread, TCommThread -- 在delphi线程中实现消息循环(105篇博客,好多研究消息的文章)

    在delphi线程中实现消息循环 在delphi线程中实现消息循环 Delphi的TThread类使用很方便,但是有时候我们需要在线程类中使用消息循环,delphi没有提供.   花了两天的事件研究了 ...

  3. Delphi线程定时器TThreadedTimer及用法--还有TThreadList用法可以locklist

    Delphi线程定时器 - -人生如歌- - 博客园http://www.cnblogs.com/zhengwei0113/p/4192010.html (* 自己编写的线程计时器,没有采用消息机制, ...

  4. delphi 线程教学第六节:TList与泛型

    第六节: TList 与泛型   TList 是一个重要的容器,用途广泛,配合泛型,更是如虎添翼. 我们先来改进一下带泛型的 TList 基类,以便以后使用. 本例源码下载(delphi XE8版本) ...

  5. 线程 Timer TimerTask 计时器 定时任务 MD

    Markdown版本笔记 我的GitHub首页 我的博客 我的微信 我的邮箱 MyAndroidBlogs baiqiantao baiqiantao bqt20094 baiqiantao@sina ...

  6. delphi 线程教学第二节:在线程时空中操作界面(UI)

    第二节:在线程时空中操作界面(UI)   1.为什么要用 TThread ?   TThread 基于操作系统的线程函数封装,隐藏了诸多繁琐的细节. 适合于大部分情况多线程任务的实现.这个理由足够了吧 ...

  7. delphi 线程教学第一节:初识多线程

    第一节:初识多线程   1.为什么要学习多线程编程?   多线程(多个线程同时运行)编程,亦可称之为异步编程. 有了多线程,主界面才不会因为耗时代码而造成“假死“状态. 有了多线程,才能使多个任务同时 ...

  8. 多线程的基本概念和Delphi线程对象Tthread介绍

    多线程的基本概念和Delphi线程对象Tthread介绍 作者:xiaoru    WIN 98/NT/2000/XP是个多任务操作系统,也就是:一个进程可以划分为多个线程,每个线程轮流占用CPU运行 ...

  9. Delphi线程的终止

    当线程对象的Execute()执行完毕,我们就认为此线程终止了.这时候,它会调用Delphi的一个标准例程EndThread(),这个例程再调用API函数ExitThread().由ExitThrea ...

随机推荐

  1. 场景2 nginx 错误日志格式:

    nginx 错误日志格式: 2016/09/01 11:23:36 [error] 28388#0: *14549 open() "/var/www/zjzc-web-frontEnd/im ...

  2. UESTC_邱老师的脑残粉 2015 UESTC Training for Graph Theory<Problem D>

    D - 邱老师的脑残粉 Time Limit: 12000/4000MS (Java/Others)     Memory Limit: 65535/65535KB (Java/Others) Sub ...

  3. Valid Anagram 解答

    Question Given two strings s and t, write a function to determine if t is an anagram of s. For examp ...

  4. HDU5441 Travel (离线操作+并查集)

    Travel Time Limit: 1500/1000 MS (Java/Others)    Memory Limit: 131072/131072 K (Java/Others)Total Su ...

  5. 程序猿必备的10款web前端开发插件一

    1.CSS3实现的火柴燃烧Loading加载动画 这次我们要给大家分享一款非常特别的CSS3 Loading加载动画,整个Loading加载动画就好像是火柴在燃烧一样,不足的是火苗并没有那么真实,比较 ...

  6. Js 中常用方法

    一.获取唯一值(2014-12-23) function newGuid() { var guid = ""; var n = (((1 + Math.random()) * 0x ...

  7. cocos2dx 3.1从零学习(三)——Touch事件(回调,反向传值)

    第三讲 Touch 前面两篇我们学习的内容,足够我们做一款简单的小游戏.也能够说,我们已经入门了,能够蹒跚的走路了. 本篇将解说cocos2dx中非常重要的touch回调机制.你肯定记得第一章做定时器 ...

  8. 不定义JQuery插件,不要说会JQuery[转载]

    http://www.cnblogs.com/xcj26/p/3345556.html 不定义JQuery插件,不要说会JQuery 一:导言 有些WEB开发者,会引用一个JQuery类库,然后在网页 ...

  9. PES包头

    PES是打包过的ES,已经插入PTS和DTS,一般是一个pes包为一帧图像 PES包格式: PES再打包成TS流或PS流,往往一个PES会分存到多个ts包中, start_code: 0x00 00 ...

  10. 【SQL】大杂烩

    --------------------------------- 索引 --------------------------------- 语法: CREATE [索引类型] INDEX 索引名称 ...