Delphi消息框出现在其他窗体后面

Question

我使用下面的代码在 Delphi 7 中创建一个消息框。但是，屏幕上还有另一个表单，其 FormStyle 设置为 fsStayOnTop 并且消息框出现在该表单后面。

有什么办法可以强制messagebox出现在前面吗？

    if Application.MessageBox('Amessage here','Title', +MB_APPLMODAL + MB_ICONQUESTION + MB_YESNO) = IDNO then

Answer 1

调用 NormalizeTopMosts 在显示消息框之前。

使用 NormalizeTopMosts 允许消息框或对话框
使用 Windows API 函数（例如 MessageBox 和
MessageDlg）直接出现在最顶层表单的顶部。否则
最上面的窗体保留在顶部，并且可能会遮挡消息框。

（希望它在 Delphi 7 中可用。）

编辑：不确定否决票。如果它暗示 OP 应使用本机 MessageBox 函数并将其父级 HWND 设置为最上面的窗口 - 我同意。但也许由于某种原因这是不可能的。

Answer 2

在 Windows.pas 中，您可以找到 MessageBox() 的更多标志：

MB_APPLMODAL = $00000000;
MB_SYSTEMMODAL = $00001000;
MB_TASKMODAL = $00002000;

在 MessageBox 文档

您甚至可以使用 MB_TOPMOST 标志。

Answer 3

尝试使用 MB_TASKMODAL 标志而不是 MB_APPLMODAL。