combobox默认值:ComboBox的DataValue值来源: 发布时间:星期四, 2009年2月12日 浏览:319次 评论:0
procedure TForm1.Button1Click(Sender: TObject); var s : ; 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 := (combobox1.Items.Objects[combobox1.ItemIndex]); end; 0
相关文章读者评论发表评论 |