diff --git a/lcl/interfaces/carbon/carbonwscontrols.pp b/lcl/interfaces/carbon/carbonwscontrols.pp
index 16a0563c86..8494283196 100644
--- a/lcl/interfaces/carbon/carbonwscontrols.pp
+++ b/lcl/interfaces/carbon/carbonwscontrols.pp
@@ -332,7 +332,8 @@ begin
       Result := True
     else
       Result := (TCarbonWidget(AWincontrol.Handle) is TCarbonControlWithEdit) or
-        (TCarbonWidget(AWincontrol.Handle) is TCarbonDataBrowser);
+        (TCarbonWidget(AWincontrol.Handle) is TCarbonDataBrowser) or
+          (TCarbonWidget(AWincontrol.Handle) is TCarbonCustomControl);
   end;
 end;