RSS订阅 | 匿名投稿
您的位置:网站首页 > 控件 > 正文

delphi中ComboBox的DataValue值

作者:admin 来源: 日期:2014/7/29 17:21:04 人气: 标签:ComboBox

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;


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: