一个ComboBox的Bug

来源：互联网发布：淘宝客发布平台编辑：程序博客网时间：2024/04/29 17:05

宽度改变后，输入字符被傻瓜式的匹配。即使没有输入焦点也会显示为选择状态

object ComboBox1: TComboBox
Text = 'aa'
Items.Strings = (
    'aaaaaaaa'
    'bbbbbbbb'
    'cccccccc'
    'dddddddd'
    'eeeeeeee')
end

procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Enabled := False;
ComboBox1.Width := ComboBox1.Width + 1;
end;

//原创 Zswang 2006-09-18 wjhu111#21cn.com 尊重作者,转贴请注明出处
放一个Windows标准控件ComboBox
增加几条选择项，如：
aaaaaa
bbbbbb
...

1、在ComboBox中输入“aa”
2、改变ComboBox的宽度后
ComboBox的内容变成了“aaaaaa”

即使我的输入焦点没有落在ComboBox上
也会显示为选中状态（蓝底白字）
算成功能也没啥
但主要是界面上ComboBox多个同时变成选中状态
用户会不知道输入焦点落在何处，真够烦的
(测试环境是XP)