在treeview控件中 如何利用右键对节点进行选择

jimiking 2004-01-09 10:42:16
在treeview控件中 如何利用右键对节点进行选择 只有在用左键点击节点时,能够判断选择的节点 在用右键点击节点时,有焦点的节点并没有变化 如何解决

使用左键和右键都能选择节点
...全文
34 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
DaSaint 2004-01-09
  • 打赏
  • 举报
回复
procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button=mbRight then
if Treeview1.GetNodeAt(X,Y)<>nil then
Treeview1.GetNodeAt(X,Y).Selected:=true;
end;
newc_k 2004-01-09
  • 打赏
  • 举报
回复
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;

在ONmousedown中调用

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧