delphi - 我如何发现我的delphi应用程序当前是否有模式窗口？

Question

我在 Delphi MDI 应用程序中运行了一个计时器，如果后台发生变化，我想用它弹出一条消息。但我不希望当应用程序在前台有模式对话框时弹出该消息，因为用户对此无能为力。

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

Answer 1

您可以尝试使用以下代码:

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

  end;
end;

我用 Delphi 4 进行了测试，对我有用。

[编辑]:但是您应该真正考虑一下弹出表单并窃取焦点是否是一个好主意。这取决于您的应用程序，但如果用户当前正在编辑字段中输入某些内容，或者使用鼠标执行某些操作，那么这可能会破坏他们的工作流程。