一些窗口API函数，比如SetForegroundWindow，SwitchToThisWindow

Posted 2020-06-17

SetForegroundWindow
SwitchToThisWindow

procedure TApplication.BringToFront;
var
TopWindow: HWnd;
begin
if Handle <> 0 then
begin
TopWindow := GetLastActivePopup(Handle);
if (TopWindow <> 0) and (TopWindow <> Handle) and
IsWindowVisible(TopWindow) and IsWindowEnabled(TopWindow) then
SetForegroundWindow(TopWindow);
end;
end;