Delphi 11.3多线程重复启动后TOpenDialog冻结应用问题咨询

问题现象 #

多次点击Button1（2-3次）启动同一线程，待最后一个线程结束后点击Button2调用TOpenDialog窗口，程序会无提示冻结，需通过Windows任务管理器强制关闭。

原代码 #

{主单元}
procedure TForm1.Button1Click(Sender: TObject);
Begin
  MyThread:= TMyThread.Create(false);
End;
    
procedure TForm1.Button2Click(Sender: TObject);
Begin
  OpenDialog1.Execute;
End;
  
{线程单元}
procedure TMyThread.Execute;
Begin
  Sleep(2000);
  Synchronize(UpdateMainForm);
End;
    
procedure TMyThread.UpdateMainForm;
Begin
  Form1.Label1.Text:= 'Now thread ended!';
  EndMyThread;
End;

procedure TMyThread.EndMyThread;
Begin
  FreeOnTerminate:= true;
End;

问题根源 #

1. 全局线程引用被覆盖：每次点击Button1都会创建新的TMyThread实例并赋值给全局变量MyThread，之前创建的线程实例失去引用，即便后续设置FreeOnTerminate := true，也可能因线程销毁时机不当导致主UI线程消息队列异常。
2. FreeOnTerminate设置时机错误：在Synchronize调用的UpdateMainForm中设置FreeOnTerminate := true不合理——此时线程的Execute方法已执行到末尾，线程即将进入终止流程，该设置无法正确触发自动销毁逻辑，反而可能导致线程资源释放不彻底，干扰主UI线程的消息循环。
3. 多线程同步操作冲突：多个线程同时通过Synchronize向主UI线程发送同步请求，可能导致主UI消息队列积累未处理的同步消息，后续调用TOpenDialog.Execute（模态窗口依赖主消息循环正常运转）时，消息循环被阻塞引发冻结。

解决方案 #

方案1：正确设置FreeOnTerminate并避免覆盖线程引用 #

修改线程创建逻辑，在创建时就设置FreeOnTerminate := true，同时不再使用全局变量持有线程引用（无需跟踪线程状态时，让线程自动管理生命周期）：

{主单元}
procedure TForm1.Button1Click(Sender: TObject);
var
  NewThread: TMyThread;
Begin
  NewThread := TMyThread.Create(false);
  NewThread.FreeOnTerminate := true; // 创建时直接设置自动销毁
End;
    
procedure TForm1.Button2Click(Sender: TObject);
Begin
  OpenDialog1.Execute;
End;
  
{线程单元}
procedure TMyThread.Execute;
Begin
  Sleep(2000);
  Synchronize(UpdateMainForm);
End;
    
procedure TMyThread.UpdateMainForm;
Begin
  Form1.Label1.Text:= 'Now thread ended!';
  // 移除EndMyThread调用，不再在同步方法中设置FreeOnTerminate
End;

方案2：用TThread.Queue替代Synchronize（优化UI更新逻辑） #

如果不需要严格同步更新UI，改用Queue异步发送UI更新请求，减少对主UI线程的阻塞：

procedure TMyThread.Execute;
Begin
  Sleep(2000);
  Queue(UpdateMainForm); // 异步更新UI，不阻塞线程执行
End;

方案3：管理多线程实例（需跟踪线程状态时） #

如果需要跟踪所有活跃线程，可使用TList<TThread>管理，在线程终止时从列表中移除：

{主单元}
private
  ThreadList: TList<TThread>;
protected
  procedure ThreadTerminated(Sender: TObject);
public
  constructor Create(AOwner: TComponent); override;
  destructor Destroy; override;

procedure TForm1.Create(AOwner: TComponent);
Begin
  inherited;
  ThreadList := TList<TThread>.Create;
End;

procedure TForm1.Destroy;
var
  Thread: TThread;
Begin
  for Thread in ThreadList do
  begin
    Thread.Terminate;
    Thread.WaitFor;
  end;
  ThreadList.Free;
  inherited;
End;

procedure TForm1.Button1Click(Sender: TObject);
var
  NewThread: TMyThread;
Begin
  NewThread := TMyThread.Create(false);
  NewThread.FreeOnTerminate := true;
  NewThread.OnTerminate := ThreadTerminated;
  ThreadList.Add(NewThread);
End;

procedure TForm1.ThreadTerminated(Sender: TObject);
Begin
  ThreadList.Remove(TThread(Sender));
End;

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