Delphi TTreeView自定义项绘制后水平滚动条显示问题求助

针对你通过OnCustomDrawItemEvent自定义绘制TreeView项后，文本超宽无法触发水平滚动条的问题，可按以下方案处理：

• 计算全局最大文本宽度：遍历TreeView的所有节点，用TextWidth(someText)逐个计算节点文本的实际宽度，记录所有节点中的最大值。
• 调用API调整滚动范围：利用Windows平台的SetScrollInfoAPI，手动设置TreeView的水平滚动参数，开启滚动条并适配最大文本宽度。示例Delphi代码如下：

  var
    ScrollInfo: TScrollInfo;
    MaxTextWidth: Integer;
  begin
    // 先遍历节点计算出MaxTextWidth的具体值
    ScrollInfo.cbSize := SizeOf(TScrollInfo);
    ScrollInfo.fMask := SIF_ALL;
    ScrollInfo.nMin := 0;
    ScrollInfo.nMax := MaxTextWidth;
    ScrollInfo.nPage := TreeView1.ClientWidth;
    SetScrollInfo(TreeView1.Handle, SB_HORZ, ScrollInfo, True);
  end;
  

• 动态更新滚动范围：在TreeView的OnExpanded、OnCollapsed以及节点内容变更的事件中，重新计算最大文本宽度并更新滚动参数，避免节点展开后新出现的长文本无法触发滚动。
• 适配滚动偏移的绘制逻辑：开启滚动条后，绘制文本时需结合TreeView的当前滚动偏移调整起始坐标，确保滚动时文本正确跟随移动：

  NodeRect := Node.DisplayRect(true);
  NodeRect.Left := NodeRect.Left - TreeView1.ScrollPos.X;
  TextRect(NodeRect, NodeRect.Left, NodeRect.Top, sometext);
  

内容的提问来源于stack exchange，提问作者danisius