Question

场景是我有一个'主应用'和'帮助应用'。 'helper app'弹出一个键盘钩子，它是什么东西，然后重新聚焦主应用程序窗口。问题是，如果主应用程序在帮助程序处于活动状态时弹出模式对话框，然后帮助程序重新关闭错误的窗口，则隐藏模态对话框并且主应用程序显示为“冻结”。

有任何解决此问题的策略建议吗？

Answer 1

看起来“主应用程序”的模态形式不属于主应用程序窗口，否则模态形式将始终位于主窗体之上。因此，可能是，它编译的Delphi版本没有MainFormOnTaskbar属性，或者没有设置。然后它必须是拥有窗口的隐藏应用程序窗口。

您可以测试关闭“帮助应用程序”表单时是否禁用主应用程序窗口（如果有模式表单则会出现这种情况），并恢复隐藏应用程序窗口所拥有的最后一个活动弹出窗口它是。

var
  Wnd: HWND;     // handle to 'main app's main form
  mWnd: HWND;    // handle to possible modal form
  AppWnd: HWND;  // handle to hidden Application window
begin
  ..

  if not IsWindowEnabled(Wnd) then begin  // test if there's a modal form
    AppWnd := GetWindowLong(Wnd, GWL_HWNDPARENT); // TApplication window handle
    mWnd := GetLastActivePopup(AppWnd); // most recently active popup window

      // restore focus to mWnd     

  end else
    // restore focus to Wnd

（当然，不要忘记包含API函数结果的测试。）

Answer 2

尝试Application.Restore或Application.RestoreTopMosts。当WinAPI调用显示该模态对话框时，也请先尝试Application.Normalize(All)TopMosts。

现在，这可能就足够了，但是在我自己的应用程序中隐藏了任务栏中的应用程序句柄，它没有，我需要以下例程，它是TApplicationEvents.OnActivate事件的处理程序：

procedure TMainForm.AppEventsActivate(Sender: TObject);
var
  TopWindow: HWND;
begin
  TopWindow := GetLastActivePopup(Application.Handle);
  if (TopWindow <> 0) and (TopWindow <> Application.Handle) then
  begin
    BringToFront;
    SetForegroundWindow(TopWindow);
  end;
end;

澄清：Application.BringToFront中的代码几乎相同，但不保证在后台显示主窗体。即Application.BringToFront可能只显示模式对话框。

聚焦正确的窗口

2 个答案: