大家帮助好急...............

Question

在treeview中怎么才能右键也能选中结点

Answer 1

TTreeView本身就有这个属性：RightClickSelect
设置成true就可以了。

Answer 2

procedure   TForm1.TreeView1MouseDown(Sender:   TObject;   Button:   TMouseButton;
    Shift:   TShiftState;   X,   Y:   Integer);
var
      TreeNode:TTreeNode;
begin
          if   Button<>mbRight   then   Exit;           
          TreeNode:=TreeView1.GetNodeAt(x,y);
          if   TreeNode<>nil   then
          begin
                    TreeView1.Selected:=TreeNode;
          end;
end;