Node.Index如何对应相对节点添加其值?谢谢!

Question

现在从数据库读取数据加入TreeView内,名称字段显示在TreeView上面,相对的ID要放到Node.Index上面,现在需要或得选取某节点时候的一个相应的ID,请详细点,谢谢.

Answer 1

用TTreeNode.AbsoluteIndex而不是Index，Index是相对于父节点而言的。————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 2

to  lxpbuaa(桂枝香在故国晚秋) ( ) 
怎么把从数据库查出来的ID放不进TTreeNode.AbsoluteIndex ??
TreeNode1.AbsoluteIndex := QryTmp.FieldByName('ZoneID').AsInteger;
错误提示
[Error] H_Area.pas(90): Cannot assign to a read-only property

Answer 3

不需要给AbsoluteIndex 赋值，它是自动控制的。————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 4

现在有　员工表　　字段如下
员工ID
姓名TreeView显示
李xx
黄xx
钟xx现在想实现的是当选择李xx时候获得他相对的ID值

Answer 5

TMyNodeInfo=Class
  Private
  FID:Integer;
  FCaption:String;
  FNode:TTreeNode;
  public
    procedure SetNode( Value:TTreeNode);
  published
   Property ID:Integer Read FID Write FID;
   Property Caption:String Read FCaption Write FCaption;
   Property Node:TTreeNode Read FNode Write SetNode;
end;
procedure TMyNodeinfo.SetNode(Value:TTreenode);
begin
  FNode:=Value;
  FNode.text:=FCaption;end;
每读一条记录的时候创建一个MyNodeInfo;
  MyNodeInfo.id:='1';
  MyNodeInfo.Caption:='张三';
  TreeNode.Data:=MyNodeInfo;

Answer 6

访问这样子。 TMyNodeInfo(TreeView1.selected.node).ID; TMyNodeInfo(TreeView1.selected.node).Caption;

Answer 7

上面写错了，
TreeView1.selected.node  是 treeview1.selected.data