diff --git a/lcl/interfaces/cocoa/cocoawscommon.pas b/lcl/interfaces/cocoa/cocoawscommon.pas
index 1d0524cd40..bf22e9b837 100644
--- a/lcl/interfaces/cocoa/cocoawscommon.pas
+++ b/lcl/interfaces/cocoa/cocoawscommon.pas
@@ -1472,6 +1472,8 @@ end;
 
 class procedure TCocoaWSWinControl.SetBounds(const AWinControl: TWinControl;
   const ALeft, ATop, AWidth, AHeight: Integer);
+var
+  cb : ICommonCallBack;
 begin
   if AWinControl.HandleAllocated then
   begin
@@ -1480,6 +1482,9 @@ begin
       [AWinControl.Name, dbgs(Bounds(ALeft, ATop, AWidth, AHeight))]));
     {$ENDIF}
     NSObject(AWinControl.Handle).lclSetFrame(Bounds(ALeft, ATop, AWidth, AHeight));
+
+    cb := NSObject(AWinControl.Handle).lclGetCallback;
+    if Assigned(cb) then cb.boundsDidChange(nil);
   end;
 end;