线程【四】线程内定时器

 

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

换句话说，有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;