实现鼠标右键选中结点

实现鼠标右键选中结点
1. 设置treeview的属性RightClickSelect为True
2. 编写一个函数
procedure ChangeSelectNode(tree:TTreeView;x,y:integer;Button: TMouseButton);
var
anode:TTreeNode;
begin
if button=mbright then {是否按了右键}
begin
anode:=tree.GetNodeAt(x,y); {取x,y坐标下的结点}
if anode<>nil then
anode.Selected :=true; {设置点中结点为选中}
end;
end;
3. 在treeview的OnMouseDown事件加入下面的语句
changeselectnode(treeview1,x,y,button);
******************************