主页 / coding / 问题 / 77030613
Accepted
Bart Kindt
Asked: 2023-09-03 09:27:51 +0800 CST

TTreeView：如何仅选中/取消选中 TTreeNode 中的子级？

  • 772

Windows 10、德尔福 11。

我只想为带有复选框.Checked的单个孩子进行设置。TTreeNode这是 TreeView 中的默认行为。但以下代码还选择所有兄弟节点（与起始节点处于同一级别）。事实上，调用Node.GetNextChild()和Node.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;

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

delphi

1 个回答

  1. Best Answer

    您将错误的节点传递到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;
    • 2

相关问题