使用TThread从TStringList填充TComboBox时窗体绘制异常问题

问题根源 #

你遇到的窗体延迟绘制问题，核心原因有三点：

1. 事件时机冲突：OnCreate事件在窗体显示前执行，主线程正处于窗体初始化的关键流程，即使启动了后台线程，当线程通过Synchronize触发UI更新时，会打断主线程的窗体绘制逻辑，导致窗体必须等待UI更新完成后才能正常显示。
2. UI更新未优化：直接赋值ComboBox.Items时，控件会频繁触发UI刷新，6000条数据的批量赋值会给主线程带来额外负担。
3. 同步方式不当：Synchronize会强制主线程立即执行更新操作，抢占了窗体绘制的资源，而不是让主线程在空闲时处理更新请求。

具体解决方案 #

1. 调整线程启动时机

将线程启动从OnCreate移至OnShow事件，该事件在窗体首次显示后触发，此时窗体已完成初始绘制，主线程消息循环正常运行，后台线程的更新不会阻塞窗体显示：

procedure TMainFrm.FormShow(Sender: TObject);
var
  LoadList: TLoadList;
begin
  LoadList := TLoadList.Create;
  LoadList.Start;
end;

2. 优化ComboBox赋值逻辑

使用BeginUpdate和EndUpdate包裹赋值操作，禁止控件在批量更新时频繁刷新UI，大幅减少主线程的工作量：

procedure TLoadList.UpdateCombo;
begin
  MainFrm.YListCombo.Items.BeginUpdate;
  try
    MainFrm.YListCombo.Items.Assign(SL);
  finally
    MainFrm.YListCombo.Items.EndUpdate;
  end;
end;

3. 替换同步方式为Queue

将Synchronize改为Queue，Queue会把UI更新请求放入主线程消息队列，等主线程处理完当前的窗体绘制等任务后再执行更新，避免打断正常的UI流程：

procedure TLoadList.Execute;
begin
  for var I: Integer := 1 to 6000 do SL.Add(HebNumber(I));
  Queue(UpdateCombo); // 替换原Synchronize调用
end;

4. 预分配StringList容量

在创建TStringList时预分配足够的容量，减少动态扩容带来的性能开销：

constructor TLoadList.Create;
begin
  FreeOnTerminate := True;
  SL := TStringList.Create;
  SL.Capacity := 6000; // 预分配6000条数据的空间
  inherited Create(True);
end;

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