如何解决无法将窗口设置为前景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);
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。