![](https://i-blog.csdnimg.cn/blog_migrate/caeb21fea88606cb749c4f739967690d.gif)
这个问题有很多人问过我了. 在DELPHI里如何来 禁止双击TTreeView节点时,避免让TTreeView自动地去执行Windows默认的展开或关闭节点的事件.而又能让点击TTreeview 节点前面的展开符时有用,即点展开符时能关闭或展开节点,
其实我们只要判断双击事件的位置就行了,那就是我们只要知道是否是双击在节点 TreeNode 的文字上.而不是点击在节点前的展开符上.知道了这个原理,实现起来就方便了.
现在我把代码贴出来. 让大家参考一下.
![](https://i-blog.csdnimg.cn/blog_migrate/8f900a89c6347c561fdf2122f13be562.gif)
![ExpandedBlockStart.gif](https://i-blog.csdnimg.cn/blog_migrate/961ddebeb323a10fe0623af514929fc1.gif)
//
先定义一个变量,用来保存是否可以关闭或展开节点.
var
AllowDBClickEvent: Boolean;
// Treeview的OnClick事件中来判读点击的位置是否在节点的文本区内. 如果是,那就不能响应展开或关闭节点.
// 同时要关闭节点的 HasChildren, 否则... 你可以试试效果.
procedure TMainWin.Treeview1Click(Sender: TObject);
var
P: TPoint;
R: TRect;
Node: TTreeNode;
begin
AllowDBClickEvent : = True;
GetCursorPos(P);
P : = tvTables.ScreenToClient(P);
Node : = tvTables.GetNodeAt(P.X, P.Y);
if (Node <> nil ) and Node.HasChildren then
begin
R : = Node.DisplayRect(True);
if PtInRect(R, P) then
AllowDBClickEvent : = False;
end ;
end ;
// 在TreeView的OnCollapsing 与 OnExpanding 加入以下代码
// 而且必须加入 AllowDBClickEvent : = True; 重新定义值, 否则... 你可以试试效果.
// 同上面判断节点的 HasChildren值一样.这一句不加的话,在双击完成后,再点节点的展开符时. AllowDBClickEvent 值没有更新,有可能会不响应展开或关闭节点的事件.
procedure TMainWin.Treeview1Collapsing(Sender: TObject; Node: TTreeNode; var AllowCollapse: Boolean);
begin
AllowCollapse : = AllowDBClickEvent;
AllowDBClickEvent : = True;
end ;
procedure TMainWin.Treeview1Expanding(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean);
begin
AllowExpansion : = AllowDBClickEvent;
AllowDBClickEvent : = True;
end ;
var
AllowDBClickEvent: Boolean;
// Treeview的OnClick事件中来判读点击的位置是否在节点的文本区内. 如果是,那就不能响应展开或关闭节点.
// 同时要关闭节点的 HasChildren, 否则... 你可以试试效果.
procedure TMainWin.Treeview1Click(Sender: TObject);
var
P: TPoint;
R: TRect;
Node: TTreeNode;
begin
AllowDBClickEvent : = True;
GetCursorPos(P);
P : = tvTables.ScreenToClient(P);
Node : = tvTables.GetNodeAt(P.X, P.Y);
if (Node <> nil ) and Node.HasChildren then
begin
R : = Node.DisplayRect(True);
if PtInRect(R, P) then
AllowDBClickEvent : = False;
end ;
end ;
// 在TreeView的OnCollapsing 与 OnExpanding 加入以下代码
// 而且必须加入 AllowDBClickEvent : = True; 重新定义值, 否则... 你可以试试效果.
// 同上面判断节点的 HasChildren值一样.这一句不加的话,在双击完成后,再点节点的展开符时. AllowDBClickEvent 值没有更新,有可能会不响应展开或关闭节点的事件.
procedure TMainWin.Treeview1Collapsing(Sender: TObject; Node: TTreeNode; var AllowCollapse: Boolean);
begin
AllowCollapse : = AllowDBClickEvent;
AllowDBClickEvent : = True;
end ;
procedure TMainWin.Treeview1Expanding(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean);
begin
AllowExpansion : = AllowDBClickEvent;
AllowDBClickEvent : = True;
end ;