diff --git a/lcl/interfaces/qt/qtwscontrols.pp b/lcl/interfaces/qt/qtwscontrols.pp
index 4ab336a2bb..954065b2e8 100644
--- a/lcl/interfaces/qt/qtwscontrols.pp
+++ b/lcl/interfaces/qt/qtwscontrols.pp
@@ -551,6 +551,11 @@ begin
   Widget := TQtWidget(AWinControl.Handle);
 
   Widget.BeginUpdate;
+  // issue #28437
+  if AWinControl.HandleObjectShouldBeVisible and not AWinControl.IsParentFont and
+    (AWinControl.Font.Name = 'default') then
+      SetFont(AWinControl, AWinControl.Font);
+
   Widget.setVisible(AWinControl.HandleObjectShouldBeVisible);
   Widget.EndUpdate;
 end;