TreeView的问题?

Question

现在有用户登陆表,及用户权限表
已经实现TreeView显示
 管理员
|  |_xxx
| 
 普通员工
   |_xxx
   |_xxx当选择管理员或管理员下面的xxx的时候如何获得当前节点位置即当前节点位于第几层?

Answer 1

Node.Level————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 2

procedure TfrmOpusAdmin.tvOpusChange(Sender: TObject; Node: TTreeNode);
begin
  if tvOpus.Selected=nil then exit;
  ShowMessage(IntToStr(Node.Level));
end;

Answer 3

procedure Tfrm.tvChange(Sender: TObject; Node: TTreeNode);
begin
  if tv.Selected=nil then exit;
  ShowMessage(IntToStr(Node.Level));
end;

Answer 4

procedure Tfrm.tvClick(Sender: TObject);
begin
  if tv.Selected<>nil then 
  begin
    ShowMessage(IntToStr(Node.Level));
  end;
end;