How to disable expand in Virtualstringtree dblclick-CodePudding

I want to implement other events in virtualstringtree dblcick, No need to expand/collapse in dblcick, only need to use /- to expand/collapse

CodePudding user response：

Include this code above your form's definition in your .PAS source:

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

and the implementation of the HandleMouseDblClick should be:

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

It will then (only) call the OnNodeDblClick event handler on a DoubleClick event, where you can do what you need. You may need to investigate the HitInfo parameter to determine if a node was truly clicked (and not just the white area). I'll leave that up to you :-)