diff --git a/lcl/dbgrids.pas b/lcl/dbgrids.pas
index 00abe95d31..0958955162 100644
--- a/lcl/dbgrids.pas
+++ b/lcl/dbgrids.pas
@@ -3003,7 +3003,7 @@ end;
 
 function TCustomDBGrid.MouseButtonAllowed(Button: TMouseButton): boolean;
 begin
-  Result:= (Button=mbLeft) or (dgAnyButtonCanSelect in Options);
+  Result:= FDataLink.Active and ((Button=mbLeft) or (dgAnyButtonCanSelect in Options));
 end;
 
 procedure TCustomDBGrid.DrawAllRows;