ComboBox的KeyPress为啥会触发两次？

Question

我把ComboBox的style属性设为csDropDownList的时候，每次KeyPress事件总是会执行两次，比如我有全局变量：str:String;
procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  str:=str+key;
end;
我按键盘s，得到的str值是：ss，请问怎么会这样啊，改怎样解决？不胜感激！

Answer 1

检查其他窗体key事件或keydown 事件是否也设为该事件.

Answer 2

没有其它地方调用这个方法，我断点跟踪看了一下，执行到“end；”的时候，按F8后就又跳到“begin”那开始执行了，不名啊~~~~~

Answer 3

str:=str+key;
-----------------
你想得到什么结果呢？

Answer 4

跟类型有关系，改成csDropDown就没事了