Treeview - alle Trees expanded

[marabu]

Hi Matt,

ich habe keine Probleme erwartet:

Delphi-Quellcode:

type
  TDemoForm = class(TForm)
    TreeView: TTreeView;
    Button: TButton;
    procedure FormShow(Sender: TObject);
  private
    procedure ExpandTopLevel;
  end;

var
  DemoForm: TDemoForm;

implementation

{$R *.dfm}

procedure TDemoForm.ExpandTopLevel;
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;

procedure TDemoForm.FormShow(Sender: TObject);
begin
  ExpandTopLevel;
end;

Funktioniert bei mir mit WindowState = wsMaximized.

Freundliche Grüße