delphi - 在虚拟 TreeView (TVirtualStringTree) 中制作主从 View ，其中每个项目组都有一个标题栏

Question

我试图从 TVirtualStringTree 中获得如下所示的结果:

我相信直接使用TVirtualStringTree(Mike Lischke的主要虚拟 TreeView 控件)，或者通过子类化它并修改继承的控件，或者通过转到 TVirtualDrawTree.

这是我可以获得的内容，并显示了我面临的问题:

我遇到的问题是我似乎无法让第 0 列的文本占据虚拟 TreeView 控件的整个水平区域。高级演示中有一个虚拟 TreeView 演示，显示多行文本，它似乎可以满足我的需要，但我无法弄清楚如何将其与标题行下方所需的详细信息列(显示为节点，节点(图中节点)。

这是我尝试过的:

• 在BeforeCellPaint事件中修改ContentRect.Right:
• 在 TreeOptions.MiscOptions 中设置 toGridExtensions。

这是一个代码示例，显示了我如何尝试更改 contentRect:

procedure TForm1.VirtualStringTree1BeforeCellPaint(Sender: TBaseVirtualTree;
  TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
  CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect);
var
   level:Integer;
begin
 level := VirtualStringTree1.GetNodeLevel(Node);
 if (level=0) then
    Inc( ContentRect.Right, 300);

end;

更新:

使用下面接受的答案，我得到以下结果:

Answer 1

我认为您想使用toAutoSpanColumns选项(在TreeOptions.AutoOptions中)，可能与OnGetCellIsEmpty事件一起使用(如果您仅返回第一列的文本)。

要获取多行节点，请使用 ivsMultiline 状态(在 OnInitNode 事件中)初始化它们或设置 vtree.MultiLine[Node] := boolean;