代码之家 › 专栏 › 技术社区 › 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标识的窗口不是顶级窗口,或者它属于另一个窗口。

推荐文章

Some1Else · 函数在Delphi中重新创建TForm

3 年前

MarkoZaaz · Delphi TwebuUpdate E2003未声明的标识符_WIN32_FIND_数据

3 年前

Agmcz · Delphi安卓库。so未安装(AAB)

3 年前

nader · 如何使用delphi在web上提交表单

7 年前

Freddie Bell · Delphi中的位补码。(翻译C#运算符)

7 年前

kwadratens · Delphi中的卡方分布函数代码

7 年前

user9672569 · 如何从确定的点向ListView的第三列添加数据?

7 年前

user9672569 · 如何在完整的位图图像中绘制阴影效果?

7 年前

mmmm · MSBuild(用于Delphi)Make-like功能

7 年前

Den · TabTip的大小和位置。Windows 10上的exe(虚拟键盘)?

7 年前