//添加数据和对象到下拉框
procedure TForm1.Button1Click(Sender: TObject); var s:string; begin ComboBox1.Items.Clear; s:= '1001'; //ComboBox1.Items.Add('1'); ComboBox1.Items.AddObject('1',TObject(s) );
s:='2001'; //ComboBox1.Items.Add('2'); ComboBox1.Items.AddObject('2',TObject(s) ); s:='3001'; //ComboBox1.Items.Add('3'); ComboBox1.Items.AddObject('3',TObject(s) ); end;
//从下拉框中获取数据对象
procedure TForm1.Button2Click(Sender: TObject); var A_Value: string; begin A_Value := string(ComboBox1.Items.Objects[ComboBox1.ItemIndex]); ShowMessage(A_Value); end;
参考:
http://www.cnblogs.com/yoogoo/archive/2012/05/23/2514378.html
//添加数据和对象到下拉框
procedure TForm1.Button1Click(Sender: TObject); var s:string; begin ComboBox1.Items.Clear; s:= '1001'; //ComboBox1.Items.Add('1'); ComboBox1.Items.AddObject('1',TObject(s) );
s:='2001'; //ComboBox1.Items.Add('2'); ComboBox1.Items.AddObject('2',TObject(s) ); s:='3001'; //ComboBox1.Items.Add('3'); ComboBox1.Items.AddObject('3',TObject(s) ); end;
//从下拉框中获取数据对象
procedure TForm1.Button2Click(Sender: TObject); var A_Value: string; begin A_Value := string(ComboBox1.Items.Objects[ComboBox1.ItemIndex]); ShowMessage(A_Value); end;
参考:
http://www.cnblogs.com/yoogoo/archive/2012/05/23/2514378.html
|
请发表评论