菜鸟问一个问题!! 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分如何,还有一些热心的人士也给一点希望不要嫌少哦! delphi中事务机制的一点小疑问 要当爸爸了,把仅有的这点分都散了吧 恭喜95喜得千金 请教大家我要显示表格样式的,用什么VCL好呢?StringGird? 为什么会出现应用程序初始化(0xc000007b)失败 控件问题 关于DBChart控件的用法,急!!! 如何调用带参数的可执行文件?? 请问一些关于系统方面的专业术语含义。 在delphi中如何使用AVICAP.DLL,小弟我刚接触USB,请大虾们给点资料。 十万火急,请问高手,如何实现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分如何,还有一些热心的人士也给一点
希望不要嫌少哦!