//实现用鼠标右键选择节点
procedurechangeselectnode (v tree : t treeview； x，y :集成器； Button: TMouseButton；
var
anode:TTreeNode；
比根
if button=mbright then {是否按了右键}
比根
anode:=vtree.getnodeat(x，y )； {取x，y坐标下的节点}
if anodenil then
比根
anode.Selected :=true； {已选择设定点的节点}
vTree.Selected:=aNode；
结束；
结束；
结束；
在onMouseDown事件下添加以下代码
.
if Button=mbRight then
比根
//更新树的焦点
变更选择节点(treeview 1，x，y，Button )；
//更新用户信息
treeview1click (发送器；
.