菜鸟问一个问题!! TTreeview有一个节点属性Data(指针)可以保存一些相关的信息,请问TCOMBOBOX和TLISTBOX有没有类似的属性?如果没有,那类似TCOMBOBOX和TLISTBOX第三方控件有没有呢?如果知道请告诉我下载的地址。100分相送! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 TCombobox和TListBox可以保存一个object.不知道是不是你所说的。 呵呵,谢谢两位!我是这样想的,我用一个TCOMBOBOX,保存ID号,但只显示NAMEID号隐藏定位Name在TTREEVIEW是可以实现的idilent(说错了别怪我) ,object可以实现吗?又如何应用呢 例程兼答案到:unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) ListBox1: TListBox; Button1: TButton; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; procedure Button1Click(Sender: TObject); procedure ListBox1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1; aa:widestring;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);beginaa:=edit1.text;listbox1.Items.AddObject(edit2.text,tobject(aa));end;procedure TForm1.ListBox1Click(Sender: TObject);beginedit3.text:=string(listbox1.Items.Objects[listbox1.ItemIndex]);end;end.祝:身体健康,提前完工:) 用COMBOBOX.ITEMS[]不是可以获得里面的数据吗? ghyghost(著名关心CSDN结贴率爱国主义人士代表) 高手就是高手,我现在给分了!呵呵给你80分如何,还有一些热心的人士也给一点希望不要嫌少哦! DBGrid使用中的一个小问题 北京天地纵横软件有限公司诚聘Delphi程序开发人员 Inforpower 的 wwDBGrid如何实现移到滚动条时或滚动鼠标滑轮时,不刷新数据 delphi中的Canvas对象和win32中的HDC是什么关系? 有关主从表的问题? 帮我看一个问题 delphi中的Query问题,急急急!!! 急聘DELPHI程序员 如何在Label和Edit中显示多行文本(新手)? ASP开发 十万火急,请问高手,如何实现TAdvStringGrid中的内容向右对齐?给分!!! 这一百分是给yuanyu368(大宇)的,谢谢你给我发的电子书
我是这样想的,我用一个TCOMBOBOX,保存ID号,但只显示NAME
ID号隐藏定位Name
在TTREEVIEW是可以实现的idilent(说错了别怪我) ,object可以实现吗?又如何应用呢
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
procedure Button1Click(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
aa:widestring;
implementation{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
aa:=edit1.text;
listbox1.Items.AddObject(edit2.text,tobject(aa));
end;procedure TForm1.ListBox1Click(Sender: TObject);
begin
edit3.text:=string(listbox1.Items.Objects[listbox1.ItemIndex]);
end;end.
祝:身体健康,提前完工:)
高手就是高手,我现在给分了!
呵呵给你80分如何,还有一些热心的人士也给一点
希望不要嫌少哦!