怎么样当按下向下键时ComboBox不自动选择到下一个Item?

Question

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if KEY=VK_DOWN then KEY:=0;
end;
form1的keypreview属性设置为true;

Answer 1

你可以将主窗体的KeyPreview设为true，这所有的键盘消息将首先被窗体拦截，然后在窗体的KeyDown事件将不需要的键过滤掉,....
大至思路就是这样
具体例子请等一下要吃饭了　呵呵：＞
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！★  浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★  多种帖子实现界面。 
★  保存帖子到本地[html格式]★  监视您关注帖子的回复更新。
★  可以直接发贴、回复帖子★  采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！ 
★  支持在线检测程序升级情况，可及时获得程序更新的信息。★★ 签名  ●  
     可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe    [自解压]

Answer 2

我重载了combobox的窗口函数，还有直接去捕捉KeyDown消息，可捕捉不到。真不知道是什么原因。

Answer 3

不知道这样可以不?
procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_Down then
    Key:=0
end;

Answer 4

procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=40 then Key:=0;
end;上面过程屏蔽了向下键，不知对你有没有帮助

Answer 5

比如说吧，我在comboBox按向下键的时候要弹出一个窗口，我按照上面的方法试了，当我在ComboBox中输入一些字母后，向下键又会去选择下一个条目，当combobox中没有字母是，就会成功屏蔽.但在调试环境下又能成功屏蔽.

Answer 6

或者我在KeyDown中加个ShowMessage也可以屏蔽，但去掉就不行了。

Answer 7

有这种事？
试试
================================================================
≈浪漫情怀≈    在那淡然的生活中
  ●╭○╮        给你丝丝温馨    
 /█∨█\  点点喜悦 阵阵春风 页页活力   ∏  ∏          及无尽的爱 ..http://comic.chinaren.com/98/75/article147127598.shtml

Answer 8

procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=40 then //什么都不做
  begin
  end;end;

Answer 9

你不用试了，就是在我的控件里不行，但我的控件也是调用了ComboBox中的KeyDown事件。

Answer 10

我试过了，没有问题啊，无论ComBox有没有字符，无论是在调试还是编译后，都可以屏蔽，搞不懂
================================================================
≈浪漫情怀≈    在那淡然的生活中
  ●╭○╮        给你丝丝温馨    
 /█∨█\  点点喜悦 阵阵春风 页页活力   ∏  ∏          及无尽的爱 ..http://comic.chinaren.com/98/75/article147127598.shtml

Answer 11

这样：
在你重载的combobox控件里处理这个消息：WM_COMMAND//代码如下unit MyComboBox;interfaceuses
  Windows, Messages, SysUtils, Classes, Controls, StdCtrls;type
  TMyComboBox = class(TComboBox)
  private
        //这个啦
        procedure OnKeyDown(var msg:TMessage);message WM_COMMAND ;
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
  end;procedure Register;implementationprocedure Register;
begin
  RegisterComponents('Samples', [TMyComboBox]);
end;procedure TMyComboBox.OnKeyDown(var msg:TMessage);
begin
        //如果按了 上、下就exit.............
        if (getasynckeystate(VK_UP)<0) or (getasynckeystate(VK_DOWN)<0) then exit;        Inherited;
end;
end.

Answer 12

楼上厉害！
================================================================
≈浪漫情怀≈    在那淡然的生活中
  ●╭○╮        给你丝丝温馨    
 /█∨█\  点点喜悦 阵阵春风 页页活力   ∏  ∏          及无尽的爱 ..
http://comic.chinaren.com/98/75/article147127598.shtml