Treeview：如何仅选中/取消选中 TreeNode 中的子级

Question

Windows 10、德尔福 11。

我只想用复选框“检查”单个树节点的子节点。 这是树视图中的标准方式。 但下面的代码also选择所有siblings（与起始节点处于同一级别）。 事实上，调用 Node.GetNextChild 和 GetNextSibling 似乎没有任何区别。

procedure TMapIntForm.CheckAllNodes(Node:TTreeNode; Check: boolean);
var
  AParent: TTreeNode;
begin
   AParent := Node;
   while (Node <> nil) do
   begin
     Node.Checked := Check;
     CheckAllNodes(Node.getFirstChild, Check);
     if Node <> TreeView.Selected then
       Node := Node.GetNextChild(Node) // getNextSibling?
     else Node:= nil;
   end;
end;

如何仅检查某个级别上节点的子节点，而不检查相同级别上的其他节点？

Answer 1

您将错误的节点传递给

GetNextChild()

。它需要一个子节点，但您将其传递给父节点。

我建议使用不同的循环来迭代子节点：

procedure TMapIntForm.CheckAllNodes(Node: TTreeNode; Check: boolean);
var
  AChild: TTreeNode;
begin
  Node.Checked := Check;
  AChild := Node.getFirstChild;
  while (AChild <> nil) do
  begin
    CheckAllNodes(AChild, Check);
    if AChild.Selected then Break;
    AChild := AChild.getNextSibling;
  end;
end;