在线程中使用定时器的例子!

在CSDN中找到的例子，自己测试了一下。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type

   TCheckExternalButtonThread = class(TThread)
     private
    { Private declarations }
      FTimer:TTimer;
      procedure TimerProc(Sender: TObject);
      procedure KillIt;
    protected
      procedure Execute;override;
    public
      ThreadNo:THandle;
      constructor Create();

    end;

  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ss:TCheckExternalButtonThread ;
implementation

{$R *.dfm}
constructor TCheckExternalButtonThread.Create();
begin
    inherited Create(False);
end;

procedure TCheckExternalButtonThread.KillIt;
begin
  PostThreadMessage(ThreadNo,WM_QUIT,0,0);
end;

procedure TCheckExternalButtonThread.TimerProc(Sender: TObject);
begin
  Form1.Memo1.Lines.Add('asdasf');
end;

procedure TCheckExternalButtonThread.Execute;
var MsgRec:TMsg;
begin

  FTimer:=TTimer.Create(nil);
  try
      FTimer.Enabled:=True;//需要用的时候Enabled设置为True即可。
      FTimer.OnTimer:=TimerProc;
      FTimer.Interval:=100;

      while GetMessage(MsgRec, 0, 0, 0) do begin
        TranslateMessage(MsgRec);
        DispatchMessage(MsgRec)
      end;

      Terminate;
  finally
    FTimer.Free;
  end;


end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 ss:=TCheckExternalButtonThread.Create;
 ss.ThreadNo:=ss.ThreadID;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 ss.KillIt;
end;

end.