如何在 Virtualstringtree dblclick 中禁用展开答案

【问题标题】：How to disable expand in Virtualstringtree dblclick如何在 Virtualstringtree dblclick 中禁用展开
【发布时间】：2021-12-09 05:16:37
【问题描述】：

我想在virtualstringtree dblcick中实现其他事件，dblcick不需要展开/折叠，只需要使用+/-来展开/折叠

【问题讨论】：

标签： delphi virtualtreeview tvirtualstringtree

【解决方案1】：

在您的 .PAS 源代码中在您的表单定义中包含此代码：

type   
  TVirtualStringTree = class(VirtualTrees.TVirtualStringTree)
                          procedure HandleMouseDblClick(var Message: TWMMouse; const HitInfo: THitInfo); override;
                       end;

HandleMouseDblClick 的实现应该是：

procedure TVirtualStringTree.HandleMouseDblClick(var Message: TWMMouse; const HitInfo: THitInfo);
begin
  DoNodeDblClick(HitInfo)
end;

然后它将（仅）在 DoubleClick 事件上调用 OnNodeDblClick 事件处理程序，您可以在其中执行所需的操作。您可能需要调查 HitInfo 参数以确定是否真正单击了节点（而不仅仅是白色区域）。我会留给你的:-)

【讨论】：

成功，谢谢