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);
.......