From e366739dbbb412e21f3594f8554dbf8216b6aad8 Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Tue, 4 Apr 2017 20:49:41 +0000
Subject: [PATCH] LCL: fix exception in DbGrid on clicking when dataset is
 inactive, patch from Soner, issue #31631

git-svn-id: trunk@54520 -
---
 lcl/dbgrids.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/dbgrids.pas b/lcl/dbgrids.pas
index 84e8ea65c4..9357815c65 100644
--- a/lcl/dbgrids.pas
+++ b/lcl/dbgrids.pas
@@ -3039,7 +3039,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;