TreeView中实现鼠标右键选中结点

实现鼠标右键选中结点

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

******************************

procedure TForm1.TreeView1ContextPopup(Sender: TObject; MousePos: TPoint;

var Handled: Boolean);

var

tmpNode: TTreeNode;

begin

tmpNode := (Sender as TTreeView).GetNodeAt(MousePos.X, MousePos.Y);

if tmpNode <> nil then

TTreeView(Sender).Selected := tmpNode;

end;