怎样在一个线程中使用一个Timer？

Question

我想在线程中使用Timer，怎样定义和通知Timer调用那个OnTimer函数？

Answer 1

动态创建一个timer1，然后把timer1.ontimer赋成你写的函数

Answer 2

procedure myTimer(sender: TObject);
begin
      ShowMessage('hehe');
end;procedure MyThread.Execute;
var
      mTimer: TTimer;
begin
      .......
      mTimer := TTimer.Create(self);
      mTimer.OnTimer := MyTimer;
      mTimer.Active := True;
      .......
end;大概就是这样子的