treeview得到鼠标右键点击的节点

  //实现鼠标右键选中结点    
  procedure   ChangeSelectNode(vTree:TTreeView;X,Y:integer;Button:   TMouseButton);  
  var  
          anode:TTreeNode;  
  begin  
      if   button   =   mbright   then     {是否按了右键}  
          begin  
              anode   :=   vTree.GetNodeAt(X,Y);     {取x,y坐标下的结点}  
                if   anode<>nil   then  
              begin  
                  anode.Selected   :=true;       {设置点中结点为选中}  
                  vTree.Selected:=   aNode;  
              end;  
          end;  
    end;    
   
  在onMouseDown事件下加上如下代码  
    .....  
    if   Button   =   mbRight   then  
        begin  
            //更新树的焦点  
            ChangeSelectNode(TreeView1,X,Y,Button);  
            //更新用户信息  
            TreeView1Click(Sender);  
        .......  
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值