| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3269417
建立时间:2005年6月6日 |
| |
|
 [delpih编程]COMBOBOx同时显示两列数据
软件技术
吕向阳 发表于 2009/3/30 9:14:58 |
| objItemEx=Class
public
caption:string;
value:string;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
objItem:ObjItemEx;
i:integer;
begin
for i:=1 to 26 do
begin
objitem:=ObjItemEx.Create;
objitem.caption:='Caption' + inttostr(i);
objitem.value:='value' + inttostr(i);
combobox1.Items.AddObject('ComboBox' + inttostr
(i),objitem);
end;
combobox1.ItemIndex:=0;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
objItem:ObjItemEx;
begin
objitem:=(combobox1.Items.Objects[combobox1.ItemIndex]
as ObjItemEx);
showmessage(objitem.caption);
showmessage(objitem.value );
end; |
|
|