如何实现右键单击选择TreeView的节点？

如题 问题点数：10、回复次数：5Top

1 楼jinjazz（近身剪）回复于 2004-11-03 11:54:44 得分 5

procedure   TForm1.TreeView1MouseUp(Sender:   TObject;   Button:   TMouseButton;  
      Shift:   TShiftState;   X,   Y:   Integer);  
  var   T:TTreenode;  
  begin  
          if   button=mbRight   then  
            T:=treeview1.GetNodeAt(x,y);  
          if   T<>nil   then   T.Selected:=true;  
   
  end;Top

2 楼miky（miky）回复于 2004-11-03 12:41:35 得分 0

TreeView1.RightClickSelect   :=   True;Top

3 楼g961681（技术庸人(情商太低)）回复于 2004-11-03 12:55:48 得分 0

建议放在MouseDown事件里，看的比较舒服。Top

4 楼jinjazz（近身剪）回复于 2004-11-03 13:50:29 得分 0

〉〉建议放在MouseDown事件里，看的比较舒服。  
   
  可以试试,好像是一样的  
   
  RightClickSelect没有作用,不解Top

5 楼lanneret2000（网中飞）回复于 2004-11-03 16:11:06 得分 5

procedure   Tform1.TreeView1MouseDown(Sender:   TObject;   Button:   TMouseButton;  
      Shift:   TShiftState;   X,   Y:   Integer);  
  //判断鼠标按下  
  var  
      nodeMD:ttreenode;  
  begin  
    if   (Button=mbRight)   then  
      begin  
        nodeMD:=tv1.GetNodeAt(x,y);  
          if   (node<>nil)   then  
            nodeMD.Selected:=true;  
          end;  
  end;Top

相关问题

• nodemd
• treeview
• rightclickselect
• mbright
• getnodeat
• tmousebutton
• tshiftstate
• ttreenode
• mousedown事件
• nil

• 帖主：mf_cn
• jinjazz
• lanneret2000

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载