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

最新推荐文章于 2021-06-01 00:10:44 发布

nuodui

最新推荐文章于 2021-06-01 00:10:44 发布

阅读量1.4k

点赞数

分类专栏： delphi

本文链接：https://blog.csdn.net/nuodui/article/details/6047450

版权

delphi 专栏收录该内容

2 篇文章 1 订阅

订阅专栏

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;