diff --git a/lcl/grids.pas b/lcl/grids.pas
index d5732a35c3..e2acd6753d 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -4220,7 +4220,8 @@ begin
   if FColumns.Enabled then begin
     FColumns.TitleFontChanged;
     ColumnsChanged(nil);
-  end;
+  end else
+    VisualChange;
 end;
 
 procedure TCustomGrid.ReadColumns(Reader: TReader);