如何在Virtualstringtree dblclick中禁用展开

Question

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

Answer 1

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

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

并且HandleMouseDbClick的实现应该是：

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

然后，它将(仅(在DoubleClick事件上调用OnNodeDblClick事件处理程序，在那里您可以执行所需操作。您可能需要调查HitInfo参数，以确定是否确实单击了节点(而不仅仅是白色区域(。我把这件事留给你：-(