使用多线程时如何摆脱延迟

Question

参考：How to animate a spinner while performing a workload via threading

我正在使用适用于 iOS 的 Delphi xe5 应用程序。在执行 SQL 查询时，我有一个 TAniIndicator 旋转。我正在使用线程 - 有关特定代码，请参阅上述文章。

一切正常，但是，当使用我在上一个问题中得到帮助的代码时，我注意到增加了延迟。在调试器下运行时，应用程序在行之间挂起：

Thread.DoTerminate;
Thread.FFinished := True;

System.Classes单元的ThreadProc函数下

关于为什么的任何线索？或者我能做些什么来防止增加 5 秒的延迟？谢谢

更新对 TLama 的回复：

procedure TForm_Login.WorkIsDone(Sender : TObject);
begin
  Form_Login.LoadSpinnerFrame.visible := False;
  Form_Login.LoadSpinner.Visible := False;
  Form_Login.LoadSpinner.Enabled := False;
  Form_Login.btnLogin.Text := 'Logout';
  Form_Login.btnLogin.Enabled := True;
  if GoodLogin = 1 then
    Main_Form.show;
end;

我的 onTerminate() 链接到上述过程。

Answer 1

TThread.DoTerminate() 调用 TThread.Synchronize() 在主线程中触发 TThread.OnTerminate 事件处理程序。然后TThread 被阻塞，直到主线程处理该请求——这不会立即发生，因为主线程必须首先检测和处理新消息——并且OnTerminate 处理程序退出。只有这样，控制权才会返回给TThread，这样它才能完成其逻辑。所以如果你在DoTerminate()中遇到了5s的延迟，那么说明主线程需要5s来检测和处理Synchronize()的请求。