无法将窗口设置为前景Delphi

问题描述

这是我用来恢复和将窗口设置为前台的代码。当窗口最小化时，代码工作正常，但是当窗口隐藏在其他一些窗口后面时，我无法将窗口带到前台，后来我发现 SetForegroundWindow(Handle) 一直返回 false。但是，如果我在调试模式下运行程序，则可以将窗口置于前台。我似乎无法弄清楚是什么导致了这种情况发生。

function EnumWindowsCallback(Handle: HWND; lParam: Integer): bool; stdcall;
var
  WID,PID: Integer;
begin
  WID := 0;
  PID := lParam;
  GetwindowThreadProcessId(Handle,@WID);
  if (PID = WID) and IsWindowVisible(Handle) then begin
    ShowWindow(Handle,SW_RESTORE);
    SetForegroundWindow(Handle);
    FlashWindow(Handle,True);
  end;
  Result := True;
end;

function ShowProcessWindow(PID: Integer): boolean;
begin
  Result := EnumWindows(@EnumWindowsCallback,lParam(PID))
end;

其中 PID 是我要恢复并设置为前台的窗口的进程 ID。

更新： 我刚刚在 documentation 中读到了这个。会不会有关系？

当用户正在使用另一个窗口时，应用程序不能强制一个窗口到前台。相反，Windows 会闪烁窗口的任务栏按钮以通知用户。

解决方法

我用以下 2 行代码替换了 SetForegroundWindow(Handle)，它在我的网站上运行：

SetWindowPos(Handle,HWND_TOPMOST,SWP_NoMove or SWP_NoSize);
SetWindowPos(Handle,HWND_NOTOPMOST,SWP_NoMove or SWP_NoSize);