dukexiu6
2016-02-19 13:17
图老师设计创意栏目是一个分享最好最实用的教程的社区，我们拥有最用心的各种教程，今天就给大家分享ComboBox的DataValue值的教程，热爱PS的朋友们快点看过来吧！
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; 
