delphi – 在虚拟树视图中为每个项目组创建一个带有标题栏的主

我相信它既可以直接使用TVirtualStringTree(Mike Lischke的主要Virtual Treeview控件),也可以通过继承它并修改继承的控件,或者转到TVirtualDrawTree.

这是我能得到的,并显示了我面临的问题：

我遇到的问题是我似乎无法让第0列的文本占据虚拟树视图控件的整个水平区域.高级演示中有一个虚拟树视图演示,显示多线文本似乎可以满足我的需要,但我无法弄清楚如何将它与标题行下方需要的详细列结合使用(显示为Node,节点,图片中的节点).

这是我尝试过的：

>在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;

更新：

使用下面接受的答案,我得到以下内容：