在特定的组件中屏蔽键盘按键

Question

我在窗体中添加了如下功能,以方便用户可以用方向键在不同的输入框中进行填写.
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    vk_up:    SendMessage(Handle,WM_NEXTDLGCTL,1,0);
    vk_down:  SendMessage(Handle,WM_NEXTDLGCTL,0,0);
  end;
end;但现在我想在窗体上再加入ComboBox组件.每次聚焦在ComboBox中后，用上、下方向键进行ComboBox下拉列表中选项的选择时，焦点却移动至下一个组件，?怎样才能在ComboBox中将FormKeyDown的功能屏蔽掉，以进行ComboBox下拉列表中选项的选择？请各位前辈指教一二。 谢谢！

Answer 1

你这样真的能用方向键码？我做测试怎么不能啊？
如果你那可以的话有很多总方法，if TComboBox（sender） = Cbname  then 

Answer 2

Form1.KeyPreview:=True;procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if not (ActiveControl = cbb1) then
  begin
    case Key of
      vk_up:    SendMessage(Handle,WM_NEXTDLGCTL,1,0);
      vk_down:  SendMessage(Handle,WM_NEXTDLGCTL,0,0);
    end;
  end;
end;

Answer 3

          If (Not ComboBox1.DroppedDown) Then
          begin
            ComboBox1.DroppedDown := true;
            Key := 0;
          end
          Else
          begin
            Sender.Perform(WM_NEXTDLGCTL, 0, 0);
            Key := 0;
          end;

Answer 4

其实也可以在ComboBox的KEYDOWN里加上FORM的KEYFREVIEW:= FLASE,然后再离开COMBOBOX时,KEYPREWIEW为TRUE估计可以,没试这种.

Answer 5

procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ComboBox1.DroppedDown then Exit;  case Key of
      vk_up:    SendMessage(Handle,WM_NEXTDLGCTL,1,0);
      vk_down:  SendMessage(Handle,WM_NEXTDLGCTL,0,0);
  end;
end;