怎么样达到这么样子的一个combobox？？？ ( 积分: 5 )

我的combobox的items是这么样子的：

01_美国
02_中国
03_德国
....
大家看到这些items是数字跟字符的组合，现在我想达到如下的目的：
比如选中“02_中国”这个项，我想让combobox的Edit框指显示“中国”这两个字，而不显示前面的数字和下划线；当然下拉的时候是要显示数字的。

其实问题的实质就是：让combobox的edit框显示的文本跟选中的item文本不一样。

我的combobox的items是这么样子的：

01_美国
02_中国
03_德国
....
大家看到这些items是数字跟字符的组合，现在我想达到如下的目的：
比如选中“02_中国”这个项，我想让combobox的Edit框指显示“中国”这两个字，而不显示前面的数字和下划线；当然下拉的时候是要显示数字的。

其实问题的实质就是：让combobox的edit框显示的文本跟选中的item文本不一样。

好,帮顶



--------签名档---------------------------

比肩国内顶尖源码下载站点 -> 源码我爱你

http://www.source520.com
http://www.source520.net

80G源码电子书免费免注册下载,大量精辟技术文档库随时更新
******************************************************************
附:为了站点持续发展,现有本站近年来收藏的大量大型商业源码低价出售,
详情请进入以下链接查看:
http://www.source520.com/building_delphi.htm

浏览商业代码请从如下URL进入查看实物:
1.商业源码库1: ftp://source520see3:browse@61.152.199.245/
2.商业源码库2: ftp://source520see2:browse@61.152.199.245/

procedure TForm1.ComboBox1Exit(Sender: TObject);
var sText:string;
begin
sText:=Copy(ComboBox1.Items[ComboBox1.itemindex],4,length(ComboBox1.Items[ComboBox1.itemindex]));
ComboBox1.text:=sText;
end;