我想用combobox控件来实现多个字段同时显示,如id,名称,性别,籍贯,年龄等。
如何做?
如何做?
解决方案 »
- 第三方控件安装(Ehlib)?
- 求救:有没有谁有DELPHI 7.X下用的关于图象处理的类库?
- 如何使用WriteProcessMemory函数设置EDIT框中的内容
- 我的女友昨天送给我一条华伦天奴皮带,是什么意思啊
- 如何让一个控件在执行期间象在设计时一样能够自由的拖动和拉大拉小呢
- 新手求助
- Query中实现日期型字段的查询
- 在请帮忙看看!给分
- ?请问哪里有萨师煊的数据库原理及《SQL SERVER 2000开发指南》的电子书下载???(hcy8004)
- 哪位高手可以在RichEdit中插入一张图片!
- 谁能告诉我回溯算法应用的依据和意义啊
- 特急, 我现在做一个统计收费员工作量的程序,我是以每个月为单位保存数据的,现在当统计跨月报表时,就要在不同的月表中查找数据...
在ListField中把字段名用;分隔开.如Descript;Code_No
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;
以上都为对应的值