Delphi - 检测我的应用程序是否打开了模式对话框

Question

我有一个 Delphi 2006 应用程序，当检测到错误情况时会弹出一个模式警报对话框。由于错误条件的检查是在空闲处理程序中完成的，因此如果碰巧显示了另一个模式对话框，则该对话框可以弹出到另一个模式对话框的顶部。这可能会导致用户感到困惑，即在关闭警报对话框后应用程序主窗体没有获得焦点，因为这是另一个模糊的模态对话框。

我想做的是在应用打开任何模态对话框时推迟弹出警报。

我尝试了 GetLastActivePopup (MyMainWindow.Handle)，但它似乎一直返回非零值。

Answer 1

参见TApplication.ModalLevel 或TApplication.OnModalBegin 和TApplication.OnModalEnd 事件。另见this question。

Answer 2

只是测试

if not IsWindowEnabled(MyMainWindow.Handle) then

这也可以处理非 Delphi 对话框处于模态时的情况，例如 windows.MessageBox(Handle...。或者一个通用对话框正在显示（即一个TOpenDialog）。

Answer 3

使用AnyPopup() 函数

关于GetLastActivePopup()。可能返回值和hWnd参数一样

• 由 hWnd 标识的窗口最近处于活动状态。
• 由 hWnd 标识的窗口不拥有任何弹出窗口。
• 由 hWnd 标识的窗口不是顶级窗口，或者它属于另一个窗口。