DELPHI: TTreeView 中禁止双击事件展开或关闭节点.

======================================================
注：本文源代码点此下载
======================================================

作者: 陆岛工作室

这个问题有很多人问过我了. 在delphi里如何来 禁止双击ttreeview节点时,避免让ttreeview自动地去执行windows默认的展开或关闭节点的事件.而又能让点击ttreeview 节点前面的展开符时有用,即点展开符时能关闭或展开节点,

其实我们只要判断双击事件的位置就行了,那就是我们只要知道是否是双击在节点 treenode 的文字上.而不是点击在节点前的展开符上.知道了这个原理,实现起来就方便了.

现在我把代码贴出来. 让大家参考一下.

代码

// 先定义一个变量,用来保存是否可以关闭或展开节点.

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

======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定 这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/