手动滚动TComboBox

时间:2013-06-21 20:25:05

标签: delphi delphi-xe2 delphi-7 delphi-2010

当我以编程方式导致下拉选择列表出现时,我无法弄清楚为什么我无法手动滚动TComboBox组件。这是我正在使用的代码:

SendMessage(ComboBox1.handle, CB_SHOWDROPDOWN, Integer(True), 0);

这会导致下拉选择列表出现。但是,如果我尝试使用键盘并使用向上和向下箭头键,则下拉选择列表会立即关闭。使用键盘上/下导航键时如何使列表不自动关闭?

1 个答案:

答案 0 :(得分:5)

激活ComboBox。并且您最好使用DroppedDown属性,这也会使组合框无效以反映更改。

ActiveControl := ComboBox1;
ComboBox1.DroppedDown := True;