TreeView控件的TreeNode能不能保存额外的数据? 就像PB的TreeView一样还有一个Data属性 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 TreeNode也有Data属性typePMyRec = ^TMyRec;TMyRec = record FName: string; LName: string;end;procedure TForm1.Button1Click(Sender: TObject);var MyRecPtr: PMyRec; TreeViewIndex: LongInt;begin New(MyRecPtr); MyRecPtr^.FName := Edit1.Text; MyRecPtr^.LName := Edit2.Text; TreeViewIndex := StrToInt(Edit3.Text); with TreeView1 do begin if Items.Count = 0 then Items.AddObject(nil, 'Item' + IntToStr(TreeViewIndex), MyRecPtr) elseif (TreeViewIndex < Items.Count) and (TreeViewIndex >= 0) then Items.AddObject(Items[TreeViewIndex], 'Item' + IntToStr(TreeViewIndex), MyRecPtr); end;end;procedure TForm1.Button2Click(Sender: TObject);begin Label1.Caption := PMyRec(TreeView1.Selected.Data)^.FName + ' ' + PMyRec(TreeView1.Selected.Data)^.LName;end; 我一般使用Node的ImageIndex或者StateIndex属性,一般是StateIndex,因为在TreeView中一般有Image就行了,很少使用了StateImage的,因此我使用StateIndex来保存一些额外的数据,比如数据库中记录的ID等等。 如何实现迅雷那样的任务提示tab(s)? delphi通过以太网与PLC通信用什么控件,怎么设置? WEB APP DEBUGGER是怎么使用的 Delphi做的ASP组件为什么比VB慢 谁能给个调用DLL例子给我呢 请问我这个sql语句错在哪里? 表格支持拖动行列、单元格斜线,自定义换肤?? 那位知道那里有(DELPHI+MAPINFO)开发GIS的资料啊? 如何在DBGrid中固定兩列? delphi 2009中使用DBX时,双击SQLConnection控件怎么不好用啊?哪位大侠熟悉DBX?? 菜鸟的问题?? Delphi.NET Preview
PMyRec = ^TMyRec;
TMyRec = record
FName: string;
LName: string;
end;procedure TForm1.Button1Click(Sender: TObject);var
MyRecPtr: PMyRec;
TreeViewIndex: LongInt;
begin
New(MyRecPtr);
MyRecPtr^.FName := Edit1.Text;
MyRecPtr^.LName := Edit2.Text;
TreeViewIndex := StrToInt(Edit3.Text);
with TreeView1 do
begin
if Items.Count = 0 then
Items.AddObject(nil, 'Item' + IntToStr(TreeViewIndex), MyRecPtr)
elseif (TreeViewIndex < Items.Count) and (TreeViewIndex >= 0) then
Items.AddObject(Items[TreeViewIndex], 'Item' + IntToStr(TreeViewIndex), MyRecPtr); end;
end;procedure TForm1.Button2Click(Sender: TObject);begin
Label1.Caption := PMyRec(TreeView1.Selected.Data)^.FName + ' ' +
PMyRec(TreeView1.Selected.Data)^.LName;
end;