diff --git a/lcl/interfaces/qt/qtpagecontrol.inc b/lcl/interfaces/qt/qtpagecontrol.inc
index 46c5e6d16c..3d1021a382 100644
--- a/lcl/interfaces/qt/qtpagecontrol.inc
+++ b/lcl/interfaces/qt/qtpagecontrol.inc
@@ -233,7 +233,7 @@ begin
     Exit;
   TabWidget := TQtTabWidget(ATabControl.Handle);
   TabWidget.BeginUpdate;
-  TabWidget.setCurrentIndex(AIndex);
+  TabWidget.setCurrentWidget(TQtWidget(ATabControl.Page[AIndex].Handle));
   TabWidget.EndUpdate;
 end;