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