diff --git a/lcl/interfaces/carbon/carbonwscontrols.pp b/lcl/interfaces/carbon/carbonwscontrols.pp
index cb57a2471c..1461f8204c 100644
--- a/lcl/interfaces/carbon/carbonwscontrols.pp
+++ b/lcl/interfaces/carbon/carbonwscontrols.pp
@@ -280,7 +280,7 @@ class procedure TCarbonWSWinControl.ShowHide(const AWinControl: TWinControl);
 begin
   if not CheckHandle(AWinControl, Self, 'ShowHide') then Exit;
   
-  TCarbonWidget(AWinControl.Handle).ShowHide(AWinControl.Visible);
+  TCarbonWidget(AWinControl.Handle).ShowHide(AWinControl.HandleObjectShouldBeVisible);
 end;
 
 {------------------------------------------------------------------------------