TreeView中怎么传递一个唯一标示符??

Question

type
PMyRec = ^TMyRec;
TMyRec = record
  FName: string;
  LName: string;
end;Assuming these types are used, the following code adds a node to TreeView1 as the last sibling of a specified node. A TMyRec record is associated with the added item. The FName and LName fields are obtained from edit boxes Edit1 and Edit2. The Index parameter is obtained from edit box Edit3. The item is added only if the Index is a valid value.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;After an item containing a TMyRec record has been added, the following code retrieves the FName and LName values associated with the item and displays the values in a label.procedure TForm1.Button2Click(Sender: TObject);begin
  Label1.Caption := PMyRec(TreeView1.Selected.Data)^.FName + ' ' +
                  PMyRec(TreeView1.Selected.Data)^.LName;
end;

Answer 1

利用属性TTreeNode.Data
你想放啥就放啥！

Answer 2

请用1stClass中fcTreeView构件，其中有data,data2属性

Answer 3

[请用1stClass中fcTreeView构件，其中有data,data2属性]请详细告知[1stClass]、[fcTreeView]？？

Answer 4

请告诉我关于[1stClass]、[fcTreeView]的内容么
或者资料什么地方有？
谢谢

Answer 5

按住Ctrl键点击类名，在类中一步步的查找。

Answer 6

看一下：（是相关帖子）
http://www.csdn.net/expert/topic/554/554678.xml?temp=.9892694

Answer 7

www.woll2woll.com
or
1stclass 关键字查找