客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
这个问题有很多人问过我了. 在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 (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;
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论