将ID和NAME写到属性items中去就行了!!!
解决方案 »
- 将 Listview 转向 Virtual Listview 后该如何删除数据?
- 请问如何判断几条记录里的字符编号是连号呢,如01234,01235,01236可以表示成01234..01236这个样子呢!
- 使用Indy9的IdSMTP/IdMessage发送邮件主题被截断的问题
- TDBGrid的问题,急需解决
- 谁能给出一个简单的try...except的例子?
- TSocketConnection该怎样用?
- Delphi编程中关于SQL语言和动态数组的问题
- 用socket怎么向指定的端口发送文件,远端服务器不要程序。
- IntraWeb中如何屏蔽鼠标右键
- 我该学什么?
- 我准备做个打印预览,请大家支持我
- 三个小问题!麻烦哥哥姐姐们了!
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
ComboBox1: TComboBox;
Edit1: TEdit;
Edit2: TEdit;
procedure FormCreate(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.AddItem('AAA', TObject(1));
ComboBox1.AddItem('BBB', TObject(2));
end;procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Edit1.Text := ComboBox1.Items[ComboBox1.ItemIndex];
Edit2.Text := IntToStr(Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]));
end;end.