======================================================
注:本文源代码点此下载
======================================================
作者: 陆岛工作室
这个问题有很多人问过我了. 在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^)/