diff --git a/lcl/interfaces/carbon/carbonprivatecontrol.inc b/lcl/interfaces/carbon/carbonprivatecontrol.inc
index 3fda7df4e8..5aabb69be8 100644
--- a/lcl/interfaces/carbon/carbonprivatecontrol.inc
+++ b/lcl/interfaces/carbon/carbonprivatecontrol.inc
@@ -798,7 +798,7 @@ begin
   // add frame to parent content area
   for I := 0 to GetFrameCount - 1 do
   begin
-    OSError(HIViewSetVisible(Frames[I], LCLObject.Visible), Self, 'AddToWidget', SViewVisible);
+    OSError(HIViewSetVisible(Frames[I], LCLObject.HandleObjectShouldBeVisible), Self, 'AddToWidget', SViewVisible);
     OSError(HIViewAddSubview(AParent.Content, Frames[I]), Self, 'AddToWidget',
       SViewAddView);
   end;