diff --git a/lcl/interfaces/qt/qtpagecontrol.inc b/lcl/interfaces/qt/qtpagecontrol.inc
index cd515c7f37..f16295cbb5 100644
--- a/lcl/interfaces/qt/qtpagecontrol.inc
+++ b/lcl/interfaces/qt/qtpagecontrol.inc
@@ -66,7 +66,10 @@ begin
 
   AColor.Alpha := 0;
   FillChar(AColor, SizeOf(AColor), #0);
-  ColorRefToTQColor(ColorToRGB(AFont.Color), AColor);
+  if AFont.Color = clDefault then
+    AColor := ATabWidget.Palette.DefaultTextColor
+  else
+    ColorRefToTQColor(ColorToRGB(AFont.Color), AColor);
   with ATabWidget.TabBar do
     SetTabFontColor(APage.PageIndex, AColor);
 end;