From b36311669c999b13fda778a478579d449ee1a0ee Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 19 Jun 2013 19:07:23 +0000
Subject: [PATCH] TRxDBLookupCombo now recived FocusControl event from
 DataField

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2755 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/rxlookup.pas | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/components/rx/rxlookup.pas b/components/rx/rxlookup.pas
index 7f2ff962c..20eaffda8 100644
--- a/components/rx/rxlookup.pas
+++ b/components/rx/rxlookup.pas
@@ -1632,7 +1632,12 @@ end;
 
 procedure TDataSourceLink.FocusControl(Field: TFieldRef);
 begin
-  inherited FocusControl(Field);
+  if Assigned(Field) and (FDataControl.FDataField = Field^) then
+    if FDataControl.CanFocus then
+    begin
+      Field^ := nil;
+      FDataControl.SetFocus;
+    end;
 end;
 
 procedure TDataSourceLink.RecordChanged(Field: TField);