为何使用TThread.Synchronize会导致窗体冻结，移除调用后却正常？

为什么用TThread.Synchronize会导致窗体冻结？ #

你创建了3个无限循环的线程，每个线程都在不间断地调用Synchronize。Synchronize的核心机制是：

• 将传入的匿名方法投递到主线程的消息队列
• 阻塞当前工作线程，直到主线程执行完该方法

3个线程同时疯狂向主线程推送同步任务，主线程被这些任务完全占用，根本没时间处理正常的界面消息（比如窗体重绘、用户交互事件），最终导致窗体失去响应、出现冻结。

为什么不用Synchronize时窗体没冻结？ #

这只是表面正常，实际上这种写法是严重错误的：VCL控件（包括TMemo）不是线程安全的，跨线程直接访问控件的属性或方法（比如Memo1.Lines.Add）会触发未定义行为——可能现在没冻结，但随时可能出现内存崩溃、界面显示错乱、数据丢失等问题，只是当前场景下没立刻暴露而已。

正确的线程安全写法 #

要解决冻结问题，同时保证线程安全，需要从控制同步频率、选择合适同步方式两方面入手：

方案1：给工作线程添加延迟 #

在循环中加入短暂延迟，减少同步任务的推送频率，给主线程留出处理界面消息的时间：

procedure TestThread;
var
  x : Integer;
begin
  for x := 0 to 2 do
  begin
    TThread.CreateAnonymousThread(
    procedure
    begin
      while True do
      begin
        TThread.Synchronize(TThread.CurrentThread, procedure
        begin
          Form1.Memo1.Lines.Add('Add to Memo ' + IntToStr(GetTickCount));
        end);
        // 延迟100ms，降低同步频率
        TThread.Sleep(100);
      end;
    end).Start;
  end;
end;

方案2：用TThread.Queue替代Synchronize #

Queue不会阻塞工作线程，仅将任务放到主线程消息队列就返回，主线程会在空闲时处理这些任务，不会被强制占用：

procedure TestThread;
var
  x : Integer;
begin
  for x := 0 to 2 do
  begin
    TThread.CreateAnonymousThread(
    procedure
    begin
      while True do
      begin
        TThread.Queue(TThread.CurrentThread, procedure
        begin
          Form1.Memo1.Lines.Add('Add to Memo ' + IntToStr(GetTickCount));
        end);
        // 建议添加延迟，避免消息队列过载
        TThread.Sleep(100);
      end;
    end).Start;
  end;
end;

方案3：批量更新界面 #

如果需要频繁写入Memo，可以先在工作线程中缓存内容，再定期同步到主线程，大幅减少同步次数：

procedure TestThread;
var
  x : Integer;
begin
  for x := 0 to 2 do
  begin
    TThread.CreateAnonymousThread(
    procedure
    var
      Cache: TStringList;
    begin
      Cache := TStringList.Create;
      try
        while True do
        begin
          Cache.Add('Add to Memo ' + IntToStr(GetTickCount));
          // 每缓存10条或者每隔1秒同步一次
          if Cache.Count >= 10 then
          begin
            TThread.Synchronize(TThread.CurrentThread, procedure
            begin
              Form1.Memo1.Lines.AddStrings(Cache);
              Cache.Clear;
            end);
          end;
          TThread.Sleep(100);
        end;
      finally
        // 线程退出时同步剩余缓存内容
        TThread.Synchronize(TThread.CurrentThread, procedure
        begin
          Form1.Memo1.Lines.AddStrings(Cache);
        end);
        Cache.Free;
      end;
    end).Start;
  end;
end;

关键提醒 #

• 永远不要跨线程直接访问VCL控件，必须通过Synchronize或Queue将界面更新操作委托给主线程执行
• 避免在工作线程中无限制地发起同步任务，否则会导致主线程过载冻结

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