请问怎样在COMBOBOX上按键盘下按钮自动显示下拉列表让用户选择记录

Question

在Combobox1的OnKeyDown事件中加入以下代码
procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin  
  if ((Key=38) or (Key=40)) then Combobox1.DroppedDown:=true;
end;

Answer 1

procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_down then
    combobox1.DroppedDown:=true;
end;

Answer 2

和在其他地方按下keyboard操作一样的
一般情况下都是在keydown事件下
if key=13 then showmessage('enter');

Answer 3

类似的Combobox这类的下拉按钮，你只要按 [alt+下箭头] 就会拉出来的。

Answer 4

procedure TDataF.ComboBox1KeyDown(Sender: TObject; var Key: Word;   
  Shift: TShiftState);
begin
  if key=40 then (Sender as  TComboBox).DroppedDown:=true;
end;