combobox按上下键变化的问题

Question

当按上下键的时候combobox的内容会发生变化，
我现在想按上下键的时候让它不变化，请问各位大侠有什么简单的办法吗？

Answer 1

没有简单的方法.1. 窗体中捕获 上下键消息.2. 继承TCombobox, 处理 上下键消息

Answer 2

处理combobox的按键事件即可，已测试procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key in [38,40] then key:=0;
end;