combobox 的使用！(50分)

请各位大哥不要见笑，我想用commbobox控件做选择列表中，选择的文本要对应一个值，
如，显示的是姓名张三，实际上还有一个USERID 如1001与之对应，
在做网页的时候我们用DROPDOWN，有一个TEXT，和VALUE 属于可以实现这个，但在DELPHI
中不知如何做！谢谢！

用commboboxEh吧
是EhLib中的一个控件

先选择相应的文本, 后再给combobox1赋对应的值!

好象不能设置为多列。另一个放在数组中，用索引来对应吧。

Items是个TStrings,而TStrings有个Objects属性!
增加项目时用AddObject方法就可以了,但要用对象

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
tinfo = class(tobject) //自定义
name:string;
id:string;
end;
type
TForm1 = class(TForm)
ComboBox1: TComboBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var Myinfo:tinfo;
begin
myinfo:=tinfo.Create;
myinfo.name:='a';
myinfo.id:='1';
combobox1.Items.AddObject(myinfo.name,myinfo);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var myinfo:tinfo;
begin
myinfo:=Tinfo(combobox1.Items.Objects[combobox1.ItemIndex]);
showmessage(myinfo.id);
end;

end.
//保证可以

多人接受答案了。