如何在 Virtualstringtree dblclick 中禁用扩展

Question

我想在virtualstringtree dblcick中实现其他事件，不需要在dblcick中expand/collapse，只需要使用+/-即可expand/collapse

Answer 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 参数以确定是否真正单击了节点（而不仅仅是白色区域）。我会把它留给你:-)

如何在 Virtualstringtree dblclick 中禁用扩展

How to disable expand in Virtualstringtree dblclick

delphi

virtualtreeview

tvirtualstringtree