线程【四】线程内定时器

在消息队列部分，我们已经知道消息泵是以线程为单位进行分离的！

换句话说，有N个程序，都产生了相关事件，在系统消息队列中会根据线程来区分，当线程的消息泵从系统消息队列抽取消息时，会挑属于自己线程的消息。

当我们创建一个工程时，IDE环境已经为我们生成了主线程的代码以及消息泵，而当我们自己创建一个Worker线程时，默认是没有消息泵的，如果想要在线程内接收消息，需要添加消息泵！

消息泵的结构：

while GetMessage(Msg, 0 , 0 , 0 ) do begin

TranslateMessage(Msg);

DispatchMessage(Msg)

end ;

另：

要想在线程内响应消息，没有窗口是不行的

所以要在线程中创建窗口(AllocateHWND)(分配窗口的工作在VCL中的Timer控件中已经完成)，来使之有接收消息(WM_TIMER)的能力!

注意：在线程内创建TIMER时应该在线程函数中创建！在构造函数中创建控件的话会窗口创建至主线程中！

(TThread.Execute本身就是对API的线程函数的封装，这个地方看一下VCL封装的线程类即可)

unit Unit2;
interface
uses
Classes,ExtCtrls,dialogs,Windows;
type
TMyTest = class(TThread)
private
FTimer:TTimer;
procedure TimerProc(Sender: TObject);
protected
procedure Execute; override;
public
constructor create;
destructor Destroy; override;
end;
implementation
constructor TMyTest.Create;
begin
Inherited Create(true);
end;
destructor TMyTest.Destroy;
begin
inherited;
end;
procedure TMyTest.Execute;
var
Msg: TMsg;
begin
FTimer:=TTimer.Create(nil);//一定要在线程函数中创建，如果在线程的构造函数中创建，就把窗口创建到主线程中了，那线程中的TIMER肯定不会接收WM_TIMER消息。
try
FTimer.Enabled:=True;
FTimer.Interval:=5000 ;
FTimer.OnTimer:=TimerProc;
while GetMessage(Msg, 0, 0, 0) do begin
TranslateMessage(Msg);
DispatchMessage(Msg)
end;
Terminate;
finally
FTimer.Free;
end;
{ Place thread code here }
end;
procedure TMyTest.TimerProc(Sender: TObject);
begin
//业务处理
end;

View Code