Setup.DebugClient: Bring to foreground successfully when no forms are…

… visible. With MainFormOnTaskBar=True, this is needed so that when a form is shown after unpausing, that form will be on top and active.
jrsoftware · Dec 30, 2024 · b1c9115 · b1c9115
1 parent 91785a9
commit b1c9115
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/Projects/Src/Setup.DebugClient.pas b/Projects/Src/Setup.DebugClient.pas
@@ -150,6 +150,8 @@ function InternalDebugNotify(DebuggerMsg: UINT; Kind: TDebugEntryKind;
   { Bring us back to the foreground, unless we've been detached }
   if Debugging then begin
     TopWindow := GetThreadTopWindow;
+    if TopWindow = 0 then
+      TopWindow := Application.Handle;
     if TopWindow <> 0 then begin
       { First ask the debugger to call SetForegroundWindow() on our window. If
         we don't do this then Windows (98/2000+) will prevent our window from