用不着,你只要利用TreeView的OnChange或OnChanging事件就可以

解决方案 »

  1.   

    TreeView1.selected即为选中的treenode,事件就用treeview的onClick或onChange。
      

  2.   

    这两个事件都提供TTreeNode参数,不仅相应鼠标,而且相应键盘
      

  3.   

    在TreeView的OnChange事件中可以得到你要的TreeNode
      

  4.   

    TreeView1.selected即为选中的treenode
    事件用treeview的onClick或onChange。
      

  5.   

    写在TreeView的OnMouseDown事件中比较好:
    var
      HT : THitTests;
      tvNode: TTreeNode;
    begin
      HT := tvSecu.GetHitTestInfoAt(X,Y);
      if (htOnItem in HT) then  //确保MOUSE是点在节点上
      begin
        tvNode := tvSecu.Selected;
        //得出tvNode之后你想做什么都可以的。可参考TTreeNode的帮助。
      end;
    end;
      

  6.   

    TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
    参数Node就是当前的接点。
      

  7.   

    To:huangkj (HuangKJ) 
    onChang是在Node改变后发生的,即当前选中的节点改变成选中另一个节点以后发生的事件,而OnChanging是在此之前,OnChanging多了一个AllowChange:Boolean参数,
    它的值决定是否允许这种变化,这两个事件只有在改变选中节点时发生,生成时不触发。
    如果你所有的都是在最后一层发生,你可以判断这两个属性的值,决定是否进行操作:
    是否有子节点:     Node.HasChildren:Bollean;
    节点的级别:     Node.Level:Integer比如:
    procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
    begin
         if (Node.HasChildren) and (node.Level=2) then
         begin
              .....
              label1.caption:='xxxxxxx';
              .....         ///实现你的过程
         end;
    end;