Treeview - alle Trees expanded

[marabu]

Hi,

ich habe das so verstanden, dass nur die erste Ebene aufgeklappt werden soll:

Delphi-Quellcode:

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  i: Integer;
  node: TTreeNode;
begin
  with TreeView.Items do
  begin
    BeginUpdate;
    node := GetFirstNode;
    while Assigned(node) do
    begin
      node.Expand(False);
      node := node.getNextSibling;
    end;
    EndUpdate;
  end;
end;

Grüße vom marabu