Delphi 12.2中带复选框TreeView的半选状态实现难题

要解决「设置csPartial导致复选框三态循环，不设置则无法显示半选」的矛盾，核心思路是保留csPartial启用半选显示，同时拦截复选框点击事件，手动控制勾选逻辑，避免系统默认的三态切换。以下是具体实现步骤：

1. 基础配置 #

• 给TreeView添加一个TImageList组件，导入三个复选框图标（顺序为：半选、未勾选、勾选），并将TreeView的StateImages属性指向该ImageList。
• 设置TreeView的CheckStyle为csPartial，这是半选状态显示的前提。

2. 核心代码实现 #

在窗体类中声明两个辅助方法，然后编写OnMouseDown事件处理逻辑：

声明辅助方法 #

type
  TForm1 = class(TForm)
    TreeView1: TTreeView;
    ImageList1: TImageList;
    procedure FormCreate(Sender: TObject);
    procedure TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    procedure SyncChildNodesCheckState(AParentNode: TTreeNode; AChecked: Boolean);
    procedure UpdateParentNodeState(ANode: TTreeNode);
  public
    { Public declarations }
  end;

实现OnMouseDown事件（拦截复选框点击） #

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  HitTest: THitTests;
  Node: TTreeNode;
begin
  if Button <> mbLeft then Exit;

  Node := TreeView1.GetNodeAt(X, Y);
  if not Assigned(Node) then Exit;

  HitTest := TreeView1.GetHitTestInfoAt(X, Y);
  // 仅处理复选框区域的点击
  if htOnCheckBox in HitTest then
  begin
    TreeView1.Items.BeginUpdate;
    try
      if Node.Parent = nil then
      begin
        // 父节点：切换全选/取消，同步所有子节点
        Node.Checked := not Node.Checked;
        SyncChildNodesCheckState(Node, Node.Checked);
        // 同步父节点的StateIndex（确保显示与实际状态一致）
        Node.StateIndex := IfThen(Node.Checked, 2, 1);
      end
      else
      begin
        // 子节点：切换勾选状态，更新父节点状态
        Node.Checked := not Node.Checked;
        UpdateParentNodeState(Node.Parent);
      end;
    finally
      TreeView1.Items.EndUpdate;
    end;
    // 阻止系统默认的三态切换逻辑
    Abort;
  end;
end;

实现辅助方法 #

// 同步父节点下所有子节点的勾选状态
procedure TForm1.SyncChildNodesCheckState(AParentNode: TTreeNode; AChecked: Boolean);
var
  I: Integer;
begin
  for I := 0 to AParentNode.Count - 1 do
    AParentNode.Items[I].Checked := AChecked;
end;

// 根据子节点勾选情况更新父节点的显示状态
procedure TForm1.UpdateParentNodeState(ANode: TTreeNode);
var
  I: Integer;
  CheckedCount: Integer;
begin
  CheckedCount := 0;
  for I := 0 to ANode.Count - 1 do
    if ANode.Items[I].Checked then Inc(CheckedCount);

  if CheckedCount = ANode.Count then
    ANode.StateIndex := 2; // 全选
  else if CheckedCount = 0 then
    ANode.StateIndex := 1; // 未勾选
  else
    ANode.StateIndex := 0; // 半选
end;

窗体初始化代码 #

procedure TForm1.FormCreate(Sender: TObject);
begin
  TreeView1.StateImages := ImageList1;
  TreeView1.CheckStyle := csPartial;
  // 可添加测试节点示例：
  // with TreeView1.Items.Add(nil, '父节点1') do
  // begin
  //   AddChild(Self, '子节点1-1');
  //   AddChild(Self, '子节点1-2');
  // end;
end;

关键说明 #

• 拦截OnMouseDown事件并调用Abort，可以阻止TreeView执行默认的三态切换逻辑，确保点击复选框时仅切换两种状态。
• 父节点点击时直接同步所有子节点的勾选状态，同时手动设置StateIndex保证显示正确。
• 子节点状态变化后，通过统计子节点的勾选数量，手动设置父节点的StateIndex来实现半选、全选、未勾选的显示效果，完全由业务逻辑控制，不受系统三态循环影响。

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