关于combobox回车的小问题

[mmkill]

在combobox里回车时总有‘当’的一声，以前知道怎么解决，时间长忘了，哪位大哥提醒一下啊，谢谢了！

[47522341]

up

[cctvnet]

我的怎么是'咚'一下

[facedge]

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if (ord(Key)=VK_RETURN)and(not TComboBox(Sender).DroppedDown) then
Key:=#0;
end;