如何发现我的delphi应用程序目前是否有模态窗口？

发布时间：2020-12-15 09:50:04 所属栏目：大数据来源：网络整理

导读：我有一个在我的Delphi MDI应用程序中运行的计时器,如果后台发生变化,我想用它来弹出一条消息.但是当应用程序在前台有一个模态对话框时,我不希望弹出该消息,因为用户无法对其进行任何操作. 所以我想知道的是如何检查我的应用程序中是否存在模态对话框？解决

我有一个在我的Delphi MDI应用程序中运行的计时器,如果后台发生变化,我想用它来弹出一条消息.但是当应用程序在前台有一个模态对话框时,我不希望弹出该消息,因为用户无法对其进行任何操作.

所以我想知道的是如何检查我的应用程序中是否存在模态对话框？

您可以尝试使用此代码：

var
  ActForm: TCustomForm;
begin
  ActForm := Screen.ActiveForm;
  if (ActForm = nil) or not (fsModal in ActForm.FormState) then begin

  end;
end;

我用Delphi 4测试过,对我有用.

[编辑]：但你应该考虑是否弹出一个表格并窃取焦点是一个好主意.这取决于您的应用程序,但如果用户当前正在编辑字段中输入内容或使用鼠标执行某些操作,则可能会破坏其工作流程.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!