线程消息循环在Delphi中挂起

Question

我有一个简单的Delphi程序,我正在努力,我试图使用线程将程序的功能与其GUI分离,并在更冗长的任务期间保持GUI响应等.基本上,我有一个'控制器'TThread和'视图'TForm.视图知道控制器的句柄,它用于通过控制器发送控制器消息PostThreadMessage.我过去没有问题使用这种模型用于不是主要形式的表单,但出于某种原因,当我尝试将此模型用于主表单时,线程的消息循环才会退出.

这是我的线程消息循环的代码:

procedure TController.Execute;
var
  Msg : TMsg;
begin
  while not Terminated do begin
    if (Integer(GetMessage(Msg, hwnd(0), 0, 0)) = -1) then begin
      Synchronize(Terminate);
    end;

    TranslateMessage(Msg);
    DispatchMessage(Msg);

    case Msg.message of
      // ...call different methods based on message
    end;
  end;
end;

要设置控制器,我这样做:

Controller := TController.Create(true); // Create suspended
Controller.FreeOnTerminate := True;
Controller.Resume;

为了处理主表单的消息,我尝试使用两个Application.Run和以下循环(紧接在后面Controller.Resume)

while not Application.Terminated do begin
  Application.ProcessMessages;
end;

我已经被困在这里 - 任何帮助将不胜感激.

Answer 1

我基本上按原样测试了您的代码，并且运行良好。尝试在 GetMessage 返回 -1 后添加对 GetLastError 的调用以查看问题所在。

从代码中并不完全清楚您是否在控制器线程中创建窗口，但如果不是，我建议将 -1 而不是 0 作为 HWND 传递给 GetMessage，并删除 TranslateMessage/DispatchMessage 调用，因为 case 语句他们后面的应该处理您收到的任何消息。

此外，您不需要对错误执行“同步（终止）”。Terminate 只是将“Termerated”布尔值设置为 true，因此您不需要同步它，并且您可以轻松地使用“Break”来打破循环，并具有相同的效果。