执行未按预期调用

您正在Synchronize()中执行大部分线程工作,Synchronize()将工作委派回主线程。如果主线程的冗长操作没有处理来自消息队列的新消息,则Synchronize()必须等待。这就是为什么在长时间的操作运行时,线程不执行任何操作的原因。

您的代码是如何有效使用线程的一个糟糕示例。相反,您应该在线程中执行冗长的操作本身,并让主线程在线程运行时处理UI更新,例如:

procedure TWorkThread.Execute; 
begin 
  DoLengthyOperation;  
end; 

begin 
  ...
  Init_SomeUIRelatedstuff; 
  Application.ProcessMessages; 

  myThread := TWorkThread.Create(False);
  while WaitForSingleObject(myThread.Handle, 80) = WAIT_TIMEOUT do
  begin 
    fDlg.fCurindex := (fDlg.fCurindex+1) mod 12; 
    UpdateImage; 
    Application.ProcessMessages; 
  end; 
  mythread.Free;

  fDlg.Close; 
  fDlg.Free;

  ...
end;

我使用GIF图像组件,可以显示动画GIF( http://www.tolderlund.eu/delphi/ ), 我把一个长时间的操作放在一个计时器里 在单独的线程中执行)。

简单但有效。