From d5139c9bd5beb1eb00e37e4c03442fbc321c5df1 Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Sat, 18 Dec 2010 06:35:36 +0000
Subject: [PATCH] LCL, fix problem in dbgrid accepting input chars even if
 editing field would not accept them

git-svn-id: trunk@28756 -
---
 lcl/grids.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lcl/grids.pas b/lcl/grids.pas
index acccc8ac18..e8e3dfafd2 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -7168,7 +7168,10 @@ begin
     else begin
       AChar := Key;
       EditorCanProcessKey(AChar);
-      Key := AChar[1];
+      if AChar='' then
+        Key := #0
+      else
+        Key := AChar[1];
     end;
   end;
   FEditorKey := False;