Dev ExpressDbEditors 中的cxDBComboBox cxDBPopupEdit 用下拉箭头选择录入的实现

cxDBComboBox　cxDBPopupEdit　的

KeyDown事件下写如下代码即可：

cxDBComboBox　：

 

procedure myfrm.cxDBComboBoxKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if key=VK_DOWN then (Sender as TcxDBComboBox).DroppedDown:=True;
end;

 

 

cxDBPopupEdit　:

procedure myfrm.cxDBPopupEditKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  inherited;
  if key=VK_DOWN then (Sender as TcxDBPopupEdit).DroppedDown:=True;
end;