diff --git a/lcl/interfaces/carbon/carbondef.pp b/lcl/interfaces/carbon/carbondef.pp
index 7c988ea1aa..23f6b392c5 100644
--- a/lcl/interfaces/carbon/carbondef.pp
+++ b/lcl/interfaces/carbon/carbondef.pp
@@ -444,10 +444,12 @@ procedure TCarbonWidget.UpdateLCLClientRect;
 var
   R: TRect;
 begin
-  GetBounds(R);
-
-  LCLObject.InvalidateClientRectCache(False);
-  LCLSendSizeMsg(LCLObject, R.Right - R.Left, R.Bottom - R.Top, Size_SourceIsInterface);
+  if not Resizing then
+  begin
+    GetBounds(R);
+    LCLObject.InvalidateClientRectCache(False);
+    LCLSendSizeMsg(LCLObject, R.Right - R.Left, R.Bottom - R.Top, Size_SourceIsInterface);
+  end;
 end;
 
 {------------------------------------------------------------------------------