diff --git a/lcl/interfaces/cocoa/cocoatables.pas b/lcl/interfaces/cocoa/cocoatables.pas
index c7c92f4776..163787771e 100644
--- a/lcl/interfaces/cocoa/cocoatables.pas
+++ b/lcl/interfaces/cocoa/cocoatables.pas
@@ -28,7 +28,7 @@ uses
   MacOSAll, CocoaAll,
   CocoaPrivate, Cocoa_Extra, CocoaCallback, CocoaConst, CocoaConfig,
   CocoaWSCommon, CocoaUtils, CocoaGDIObjects,
-  CocoaListView,
+  CocoaListView, CocoaTextEdits,
   LCLType, LCLMessageGlue, LMessages, Controls, ComCtrls, StdCtrls, ImgList, Forms;
 
 type
@@ -97,11 +97,12 @@ type
     isDynamicRowHeight: Boolean;
     CustomRowHeight: Integer;
     ScrollWidth: Integer;
-
   public
     procedure backend_setCallback( cb:TLCLListViewCallback );
     procedure backend_reloadData;
     procedure backend_onInit;
+  public
+    procedure addSubview(aView: NSView); override;
 
     procedure lclSetProcessor( processor: TCocoaTableViewProcessor ); message 'lclSetProcessor:';
     procedure lclSetCheckBoxes( checkBoxes: Boolean); message 'lclSetCheckBoxes:';
@@ -423,6 +424,18 @@ begin
   self.setIntercellSpacing(sz);
 end;
 
+procedure TCocoaTableListView.addSubview(aView: NSView);
+var
+  field: TCocoaTextField;
+begin
+  if aView.isKindOfClass(TCocoaTextField) then begin
+    field:= TCocoaTextField( aView );
+    field.setBezeled( False );
+    field.fixedBorderStyle:= True;
+  end;
+  inherited addSubview(aView);
+end;
+
 procedure TCocoaTableListView.lclSetProcessor( processor: TCocoaTableViewProcessor);
 begin
   _processor:= processor;