Início / coding / Perguntas / 77030613
Accepted
Bart Kindt
Asked: 2023-09-03 09:27:51 +0800 CST

TTreeView: como marcar/desmarcar SOMENTE filhos de um TTreeNode?

  • 772

Windows 10, Delphi 11.

Quero definir .Checkedapenas para filhos de um single TTreeNodecom caixas de seleção. Este é o comportamento padrão em TreeViews. Mas o código a seguir também seleciona todos os irmãos (no mesmo nível do nó inicial). Na verdade, a ligação Node.GetNextChild()e Node.GetNextSibling()não parecem fazer nenhuma diferença.

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;

Como verifico apenas os filhos de um nó em um determinado nível sem outros nós no mesmo nível?

delphi

1 respostas

  1. Best Answer

    Você está passando o nó errado para o GetNextChild(). Ele espera um nó filho de um nó pai no qual é chamado, mas em vez disso você está passando o próprio nó pai.

    Eu sugeriria usar um loop diferente para iterar os nós filhos:

    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

relate perguntas