//实现鼠标右键选中结点 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); .......