diff --git a/components/tachart/tatools.pas b/components/tachart/tatools.pas
index 2dc0e46744..8f66162bd0 100644
--- a/components/tachart/tatools.pas
+++ b/components/tachart/tatools.pas
@@ -175,6 +175,7 @@ end;
 
 procedure TChartZoomDragTool.MouseDown(APoint: TPoint);
 begin
+  if not FChart.AllowZoom then exit;
   Activate;
   with APoint do
     FSelectionRect := Rect(X, Y, X, Y);