delphi – 如何检查我的应用程序是否具有焦点?

我想要做的是检查我的应用程序是否具有焦点,因为如果不是,那么我将在通知区域上方弹出警报窗口以向最终用户显示一些消息.
调用 Windows.GetForegroundWindow(),然后将HWND传递给Controls.FindControl()函数.如果HWND属于您的进程,它将返回一个非零的TWinControl指针.例如:

if FindControl(GetForegroundWindow()) <> nil then
  // has focus ...
else
  // does not have focus ...
相关文章
相关标签/搜索