From ec8bc1339b2b75a2a50455c2842c966a04ff614f Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 13 Nov 2017 11:08:28 +0000
Subject: [PATCH] RxFPC:TRxLookupEdit - fix show popup for on key press -
 id0032674

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

diff --git a/components/rx/trunk/rxdb/rxlookup.pas b/components/rx/trunk/rxdb/rxlookup.pas
index ffdaeb7c0..e6029e39f 100644
--- a/components/rx/trunk/rxdb/rxlookup.pas
+++ b/components/rx/trunk/rxdb/rxlookup.pas
@@ -115,6 +115,7 @@ type
     procedure ButtonClick; override;
     function GetDefaultGlyphName: String; override;
     procedure KeyDown(var Key: Word; Shift: TShiftState); override;
+    procedure EditKeyDown(var Key: word; Shift: TShiftState); override;
     procedure InternalClosePopup(AResult:boolean);virtual;
     //
     procedure LookupDataSetChanged(Sender: TObject);  virtual;
@@ -580,6 +581,17 @@ begin
   end;
 end;
 
+procedure TRxCustomDBLookupEdit.EditKeyDown(var Key: word; Shift: TShiftState);
+begin
+  if (Key = VK_DOWN) and ((ssAlt in Shift) or (ssCtrl in Shift)) then
+  begin
+    ShowList;
+    Key := 0;
+  end
+  else
+  inherited EditKeyDown(Key, Shift);
+end;
+
 procedure TRxCustomDBLookupEdit.InternalClosePopup(AResult: boolean);
 begin
   if Assigned(FOnClosePopup) then