소스 검색

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.

Jordan Russell 8 달 전
부모
커밋
b1c9115fe6
1개의 변경된 파일2개의 추가작업 그리고 0개의 파일을 삭제
  1. 2 0
      Projects/Src/Setup.DebugClient.pas

+ 2 - 0
Projects/Src/Setup.DebugClient.pas

@@ -150,6 +150,8 @@ begin
   { 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