Form方向键+ComboBox

Question

在Form的OnKeyDown中添加如下代码:
case Key of
  VK_DOWN: Perform(WM_NEXTDLGCTL,1,0);
  VK_UP:   Perform(WM_NEXTDLGCTL,0,0);
end;
但是在遇到ComboBox组件时,打开下拉菜单,用上下键却不能选择而是直接聚焦至下一个组件.请教各位该如何解决?

Answer 1

不应该吧？你只管试一下  if (TObject(Sender) is TCustomListControl) then
  begin
    exit;
  end;
  case Key of 
    VK_DOWN: Perform(WM_NEXTDLGCTL,1,0); 
    VK_UP:  Perform(WM_NEXTDLGCTL,0,0); 
  end;