• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号

delphicomboboxAddObject用法

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

//添加数据和对象到下拉框

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

 


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
matlab生成滤波器系数发布时间:2022-07-18
下一篇:
matlab采用mex编译多个cpp文件发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap