专注于互联网--专注于架构

最新标签
网站地图
文章索引
Rss订阅

首页 »Delphi教程 » combobox默认值:ComboBox的DataValue值 »正文

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

相关文章

读者评论

发表评论

  • 昵称:
  • 内容: