首页 相关文章 ComboBox的DataValue值

ComboBox的DataValue值

procedure TForm1.Button1Click(Sender: TObject); var s : string; begin combobox1.Clear; s := '01'; combobox1.Items.AddObject('北京',TObject(s)); s := '02'; combobox1.Items.AddObject('天津',TObject(s)); s := '03'; combobox1.Items.AddObject('上海',TObject(s)); end; procedure TForm1.ComboBox1Change(Sender: TObject); begin edit1.Text := string(combobox1.Items.Objects[combobox1.ItemIndex]); end;[ 查看全文 ]

2016-02-19 标签:

ComboBox的DataValue值的相关文章

手机页面
收藏网站 回到头部