diff --git a/lcl/widgetset/wsgrids.pp b/lcl/widgetset/wsgrids.pp
index 82016a7b3b..0821b9ee74 100644
--- a/lcl/widgetset/wsgrids.pp
+++ b/lcl/widgetset/wsgrids.pp
@@ -61,6 +61,10 @@ implementation
 uses
   LCLIntf;
 
+type
+  TCustomGridAccess=class(TCustomGrid)
+  end;
+
 { TWSCustomGrid }
 
 class procedure TWSCustomGrid.SendCharToEditor(AEditor:TWinControl;
@@ -94,6 +98,12 @@ begin
       TCustomCombobox(AEditor).SelStart:=UTF8Length(GMsg.Value);
     end;
   end;
+
+  // make sure the grid is notified that some text is changed, some
+  // widgets do not notify when they are modified programmatically.
+  if GMsg.Grid<>nil then
+    with TCustomGridAccess(GMsg.Grid) do
+      EditorTextChanged(Col, Row, Ch);
 end;
 
 class function TWSCustomGrid.InvalidateStartY(const FixedHeight, RowOffset: Integer): Integer;