TSetupForm: Don't center inside a hidden or minimized form.

jrsoftware · Dec 20, 2024 · e216aae · e216aae
1 parent 3dc9943
commit e216aae
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/Projects/Src/Setup.SetupForm.pas b/Projects/Src/Setup.SetupForm.pas
@@ -331,6 +331,13 @@ procedure TSetupForm.CenterInsideControl(const Ctl: TWinControl;
 var
   R: TRect;
 begin
+  const CtlForm = GetParentForm(Ctl);
+  if (CtlForm = nil) or not IsWindowVisible(CtlForm.Handle) or
+     IsIconic(CtlForm.Handle) then begin
+    Center;
+    Exit;
+  end;
+
   if not InsideClientArea then begin
     if GetWindowRect(Ctl.Handle, R) then
       CenterInsideRect(R);