为什么MessageBox不会在同步线程上阻止应用程序？

Question

据我了解并了解TThread类的方法,如果你同步你的代码,它实际上是在主应用程序线程中执行的(就像一个计时器/按钮点击/等).我一直在玩,并注意到MessageBox不会阻止主应用程序,但是睡眠就像预期的那样.这是为什么？

type
  TTestThread = class(TThread)
  private
    procedure SynchThread;
  protected
    procedure Execute; override;
  public
    constructor Create(CreateSuspended: Boolean);
  end;

procedure TTestThread.SynchThread;
begin
 MessageBoxA (0, 'Hello', 'Test', 0);
end;

procedure TTestThread.Execute;
begin
 Synchronize (SynchThread)
end;

constructor TTestThread.Create(CreateSuspended: Boolean);
begin
  inherited;
  FreeOnTerminate := True;
end;

procedure StartThread;
var
 TestThread : TTestThread;
begin
 TestThread := TTestThread.Create (FALSE);
end;

Answer 1

这个答案分为两部分.

第1部分很好地解释了如果MessageBox()/ related是同步的,为什么我的消息循环不会冻结？.MessageBox函数没有阻塞,它只是创建一个带有自己的消息循环的对话框.

MessageBox文档中解释了第2部分.

hWnd:要创建的消息框的所有者窗口的句柄.如果此参数为NULL,则消息框没有所有者窗口.

当您显示模式对话框时,Windows会禁用其所有者,但如果您为第一个参数传递0,则没有所有者,也没有禁用任何内容.因此,您的程序将在显示消息框时继续处理消息(并对其作出反应).

要更改此行为,请将表单的句柄作为第一个参数传递.例如:

procedure TTestThread.SynchThread;
begin
  MessageBoxA (Form1.Handle, 'Hello', 'Test', 0);
end;

Answer 2

我怀疑这个问题归结为当你说:

消息框不会阻止主应用程序.

我的意思是,当您显示消息框时,您的VCL表单仍然可以与之交互.这里的问题与线程无关,我建议我们将它们从等式中删除.你对什么Synchronize是合理的理解.

这个问题完全与窗口所有者的概念有关,以及模态对话框窗口对其所有者的行为方式.请注意,所有者,我不是指Delphi属性TComponent.Owner,而是指所有者的Windows API含义.

创建一个VCL应用程序并在表单上删除两个按钮.添加以下OnClick处理程序.

procedure TForm1.Button1Click(Sender: TObject);
begin
  MessageBox(0, 'Not owned', nil, MB_OK);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  MessageBox(Handle, 'Owned by the VCL form', nil, MB_OK);
end;

现在观察点击时会发生什么Button1.消息框显示,但您仍然可以单击VCL表单.并与之比较Button2.当它显示消息框时,无法与VCL表单进行交互.

显示模式对话框窗口时,对话框窗口将禁用其所有者.在这种情况下Button2,所有者是VCL表格.一旦表单被禁用,您就无法与其进行交互.在这种情况下Button1,没有所有者,因此模态对话框窗口不会禁用任何其他窗口.这就是为什么VCL表格可以与之互动的原因.

Raymond Chen在他的Old New Thing博客上有一个关于模态的长篇系列:

• 模态,第1部分:UI模态与代码模态
• 模态,第2部分:代码模态与UI模态
• 模态,第3部分:WM_QUIT消息
• 模态,第4部分:为模态UI设置正确所有者的重要性
• 模态,第5部分:为模态UI设置正确的所有者
• 模态,第6部分:与已经模态化的程序交互
• 模态,第7部分:定时MessageBox,廉价版本
• 模态,第8部分:定时MessageBox,更好的版本
• 模态,第9部分:为模态UI设置正确的所有者,实际考试