diff --git a/lcl/interfaces/cocoa/cocoawsforms.pas b/lcl/interfaces/cocoa/cocoawsforms.pas index cc72b580a1..287b51760a 100644 --- a/lcl/interfaces/cocoa/cocoawsforms.pas +++ b/lcl/interfaces/cocoa/cocoawsforms.pas @@ -1103,7 +1103,10 @@ begin w := TCocoaWindowContent(AWinControl.Handle).lclOwnWindow; if not Assigned(w) then + begin + TCocoaWSWinControl.ShowHide(AWinControl); exit; + end; if AWinControl.HandleObjectShouldBeVisible then begin