Delphi 线程Timer (TThreadTimer)

诚信与善良 發表於 2019-10-27 13:36:00

delphi 自带的Timer控件，使用方便，但它的 OnTimer 事件是在主线程中引发的。
如果在事件中执行较耗时的代码，会引起主界面假死。故实现一个线程的Timer就有必要了。
TThreadTimer 基于 TSimpleThread 继承而来。
本例源码下载
<div class="cnblogs_code">
<pre>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 1000;

// 这个 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 := 1000; // 默认间隔时间为 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</pre>
</div>
 

</div>
<div id="MySignature" role="contentinfo">
好的代码像粥一样，都是用时间熬出来的 
来源：https://www.cnblogs.com/jijm123/p/11747298.html

頁: [1]

琼殿技术论坛's Archiver

Delphi 线程Timer (TThreadTimer)