如上

解决方案 »

  1.   

    TreeView1.Selected 即是选中的结点,
      

  2.   

    使用treeview的onchange事件,它的参数node即为选中的节点
      

  3.   

    TreeView1.Selected.level   選中的節點的層次
    TreeView1.Selected.text    選中的節點的內容
      

  4.   

    var Tn: TTreenode ;
        I: integer;
    begin
      TN := treeview1.selected;
      for I:= 0 to treeview1.items.count - 1 do
      begin
        if treeview1.items[I].selected then
        begin
          showmessage(inttostr(I)+ '  ' + treeview1.items[I].text );
        end;
      end;
    end;