禁用状态下如何让TTreeView仅高亮选中节点（VCL Styles场景）

我完全懂你遇到的糟心情况——用Windows 10 Dark样式的VCL应用，禁用TTreeView后所有节点都被莫名高亮，视觉体验极差，而且你不想折腾全自定义绘制或者替换控件。之前的代码没生效，大概率是因为颜色硬编码、DefaultDraw逻辑不对，再加上StyleElements的设置干扰了VCL样式的正常渲染。

下面给你一个精准的解决方案，不需要复杂的自定义绘制，只在禁用状态下调整非选中节点的显示：

步骤1：调整StyleElements设置 #

先把TTreeView.StyleElements恢复默认（或者至少保留seClient和seFont）——你之前禁用这两个选项会导致VCL Styles无法正确传递主题颜色，这是问题的核心根源之一。如果需要调整字体，后续可以通过代码控制，不要直接禁用StyleElements。

步骤2：正确实现AdvancedCustomDrawItem事件 #

确保你的Form引用了Vcl.Themes单元，然后把事件代码改成这样：

procedure TfrmTopics.TopicTreeAdvancedCustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage; var PaintImages, DefaultDraw: Boolean);
var
  TreeView: TTreeView;
  NodeRect: TRect;
begin
  TreeView := Sender as TTreeView;
  if not TreeView.Enabled then
  begin
    if Stage = cdPrePaint then
    begin
      if Node.Selected then
      begin
        // 选中节点保留VCL Dark样式的默认高亮绘制
        DefaultDraw := True;
      end
      else
      begin
        // 非选中节点手动用主题的正常颜色绘制，跳过默认高亮
        DefaultDraw := False;
        // 从VCL Styles获取Dark主题的对应颜色，避免硬编码
        TreeView.Canvas.Brush.Color := StyleServices.GetStyleColor(scTreeView);
        TreeView.Canvas.Font.Color := StyleServices.GetStyleFontColor(sfTreeViewTextNormal);
        
        NodeRect := Node.DisplayRect(True);
        // 绘制节点背景
        TreeView.Canvas.FillRect(NodeRect);
        // 绘制节点文本（偏移2像素对齐默认样式）
        TreeView.Canvas.TextOut(NodeRect.Left + 2, NodeRect.Top + 2, Node.Text);
        
        // 如果TreeView有Images，记得绘制图标（可选）
        if PaintImages and Assigned(TreeView.Images) then
        begin
          TreeView.Images.Draw(TreeView.Canvas, NodeRect.Left - TreeView.Images.Width - 2, NodeRect.Top, Node.ImageIndex);
        end;
      end;
    end;
  end
  else
  begin
    // 控件启用时完全使用默认绘制
    DefaultDraw := True;
  end;
end;

为什么这个方案有效？ #

1. 避免硬编码颜色：用StyleServices从当前VCL样式中获取颜色，确保和Dark主题的色调完全一致，不会出现颜色不匹配的违和感。
2. 精准控制绘制逻辑：只对禁用状态下的非选中节点手动绘制，选中节点依然保留样式的默认高亮，完美契合你的需求。
3. 兼容VCL Styles：恢复StyleElements的必要设置，让VCL样式的基础渲染正常工作，同时通过自定义绘制覆盖异常的高亮行为。

最后记得把TreeView的DoubleBuffered属性设为True，避免绘制时出现闪烁。

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