在应用combobox的时候,可能大家只注意他的text值的,但如果显示的是text值,但你要用到value值进行搜索的时候,要怎办,提供下列做法,从 网上转帖
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;
关于combobox的datavalue的问题
最新推荐文章于 2019-07-09 14:44:00 发布