Delphi 12中TTask内TTimer无法执行的问题咨询

我有一个Delphi 12应用，此前启动多个线程执行任务，任务内的TTimer可正常定时执行方法。改用TTask重构代码后，其他功能正常，但TTimer设置好Interval、绑定OnTimer事件并启用后，始终不执行RelojOnTimer方法，无任何报错。

相关代码如下：

任务启动代码 #

var 
TaskList: TList<ITask>;
T: ITask;
for i := 1 to spnCopias.Value do
begin
  T := TTask.Run(
      procedure
      begin
        THilosClientes.Create(i, False);
      end
   );
  
  TaskList.Add(T);
end;

TTimer初始化代码 #

...
Reloj := TTimer.Create(nil);
Reloj.Interval :=  1000;
Reloj.Enabled := False;
...
Reloj.OnTimer := RelojOnTimer;
Reloj.Enabled := True;

请问TTask与TTimer是否存在兼容性问题？或是需要特殊配置才能让TTimer正常执行？

这不是TTask和TTimer的兼容性问题，而是TTimer的工作机制依赖线程的消息循环导致的：

• VCL的TTimer本质是基于Windows消息机制的定时器，它需要所在线程拥有活跃的消息循环（即调用GetMessage/DispatchMessage这类消息处理函数）才能触发OnTimer事件。
• TTask.Run默认使用系统线程池中的线程，这些线程没有内置的消息循环，所以即使创建并启用了TTimer，也没有线程去处理定时器发送的WM_TIMER消息，自然不会触发RelojOnTimer方法。

之前用普通线程能正常工作，是因为自定义线程中大概率手动实现了消息循环逻辑。

两种可行解决方式 #

• 给TTask线程添加消息循环
  在TTask的执行过程中手动启动消息循环，确保能处理定时器消息：

  T := TTask.Run(
      procedure
      var
        Msg: TMsg;
      begin
        THilosClientes.Create(i, False);
        // 启动消息循环处理WM_TIMER消息
        while GetMessage(Msg, 0, 0, 0) do
        begin
          TranslateMessage(Msg);
          DispatchMessage(Msg);
        end;
      end
   );
  

  注意：需要确保消息循环能在合适时机退出，避免线程一直阻塞。

• 改用非消息依赖的定时器
  使用Delphi提供的TThreadTimer（属于System.Threading单元），它是基于线程的定时器，不依赖消息循环，适合在TTask这类线程池线程中使用：

  uses System.Threading;
  ...
  var
    ThreadTimer: TThreadTimer;
  begin
    ThreadTimer := TThreadTimer.Create(
      procedure(Sender: TObject)
      begin
        // 执行原RelojOnTimer中的逻辑
        RelojOnTimer(Sender);
      end,
      1000, // 定时间隔（毫秒）
      True // 是否立即启动
    );
    // 不需要时记得释放定时器
    // ThreadTimer.Free;
  end;
  

内容的提问来源于stack exchange，提问作者Robe79