在combox中加入多列。。

来源：互联网发布：二维数组打印杨辉三角编辑：程序博客网时间：2024/06/04 19:33

type
    pFields=^TFields;//定义一个记录集
    TFields=Record
        ID,CName,EName:String;
    end;
var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
pF:pFields;
begin
New(pF);
pF.ID:='001';
pF.CName:='中国';
pF.EName:='北京';
cxComboBox1.Properties.Items.AddObject(pF.CName,TObject(pF));

New(pF);
pF.ID:='002';
pF.CName:='日本';
pF.EName:='东京';
cxComboBox1.Properties.Items.AddObject(pF.CName,TObject(pF));
end;

procedure TForm1.cxComboBox1PropertiesChange(Sender: TObject);
begin
if   cxComboBox1.ItemIndex <0   then   Exit;
      Edt1.Text:=pFields(cxComboBox1.Properties.Items.Objects[cxComboBox1.ItemIndex]).EName;
      Edt2.Text:=pFields(cxComboBox1.Properties.Items.Objects[cxComboBox1.ItemIndex]).ID;
      Edt3.Text:=pFields(cxComboBox1.Properties.Items.Objects[cxComboBox1.ItemIndex]).CName;
end;

0 0