常规参数
文章标题:
权重:
文章摘要:
实现鼠标右键选中结点1. 设置treeview的属性RightClickSelect为True2. 编写一个函数procedure ChangeSelectNode(tree:TTreeView;x,y:integer;Button: TMouseButton);varanode:TTreeNode;beginif button=mbright then {是否按了右键}beginanode:=tree.GetNodeAt(x,y); {
关键字:
鼠标 实现 结点 end tmpNode procedure if Sender treeview
管理密码: