multithreading - 这是等待 Thread.finalization 并保持应用程序响应的正确方法

Question

实际上我正在使用这段代码并且工作正常，但我想知道这是否是正确的方法。

  while WaitForSingleObject(MyThread.Handle, 0) = WAIT_TIMEOUT do
    Application.ProcessMessages;

  ShowMessage('i am done');

Answer 1

VCL TThread 类有自己的 WaitFor() 方法，当在主线程上下文中调用时，该方法会在内部泵送主消息队列:

MyThread.WaitFor; 
ShowMessage('i am done');