diff --git a/lcl/interfaces/win32/win32pagecontrol.inc b/lcl/interfaces/win32/win32pagecontrol.inc
index 0079834134..d2cc7e69b7 100644
--- a/lcl/interfaces/win32/win32pagecontrol.inc
+++ b/lcl/interfaces/win32/win32pagecontrol.inc
@@ -505,6 +505,7 @@ begin
     end;
     Inc(RealIndex);
   end;
+  SetPageIndex(ATabControl, ATabControl.PageIndex); // index may not have been updated while pages where hidden
   AdjustSizeTabControlPages(ATabControl);
 end;