|
|
|
|
ComboBox的DataValue值 |
|
|
|
作者：未知 来源：月光软件站 加入时间：2005-2-28 月光软件站 |
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;
|
|
相关文章：相关软件： |
|
本类阅读TOP10