代码之家 › 专栏 › 技术社区 › rossmcm

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

showmodaldialog modal-dialog forms delphi

rossmcm · 技术社区 · 14 年前

我有一个Delphi2006应用程序,当检测到错误情况时会弹出一个模式警报对话框。当在空闲处理程序中检查错误条件时,如果恰好显示另一个模式对话框,则该对话框可以在另一个模式对话框的顶部弹出。对于用户来说,这可能会导致一种混乱的情况,即应用程序主窗体在警报对话框关闭后无法获得焦点,因为这是另一个模糊不清的模式对话框。

我尝试了GetLastActivePopup(MyMainWindow.Handle),但它似乎总是返回非零。

3 回复 | 直到 14 年前

Community CDub 8 年前

看到了吗 TApplication.ModalLevel TApplication.OnModalBegin 和 TApplication.OnModalEnd this question .

Sertac Akyuz 14 年前

只是测试一下

if not IsWindowEnabled(MyMainWindow.Handle) then

当一个非Delphi对话框是模态的时候,这也会考虑到一些情况,比如 windows.MessageBox(Handle... . 或者 公共对话框 正在显示(即TopEndDialog)。

Jeroen Wiert Pluimers 14 年前

AnyPopup ()功能

关于 GetLastActivePopup (). 当

hWnd标识的窗口不拥有任何弹出窗口。
由hWnd标识的窗口不是顶级窗口,或者它属于另一个窗口。

推荐文章

Natalie Smyth · 隐藏类只在我试图切换的两个部分中的一个部分上工作

1 年前

Maddison · 如果用户选择18岁以下,则需要表单重定向用户

2 年前

Maddison · 拆分用户全名并将名字传递给下一个表单pae

2 年前

Santiago Cuartas Rmrz · 使用Javascript根据密码输入长度启用/禁用按钮

2 年前

BABO SAMMO NG · 如何延迟javascript警报直到操作完成

3 年前

Germán · 单击提交时,如果文本字段错误匹配,则显示错误提示

3 年前

Shikhor Khan · 如何从下面的代码中删除提交后的表单值?

3 年前

Adheed nihal · 如果在jquery中超过了文件限制,如何清除用户上传的图像

3 年前

inyourface3445 · 更改表单中的值会导致延迟

3 年前

Filippo · 无法输入:焦点覆盖默认设置

3 年前