diff --git a/lcl/interfaces/cocoa/cocoawscommon.pas b/lcl/interfaces/cocoa/cocoawscommon.pas index b1ad8f69f7..090db2a502 100644 --- a/lcl/interfaces/cocoa/cocoawscommon.pas +++ b/lcl/interfaces/cocoa/cocoawscommon.pas @@ -392,6 +392,7 @@ begin MsgContext.XPos := Round(MousePos.X); MsgContext.YPos := Round(MousePos.Y); Rcp := Owner; + Res := 1; repeat cb := Rcp.lclGetCallback; if Assigned(cb) then