Treeview - alle Trees expanded

[Matt]

Hallo DPler,

ich weiß leider keine Suchworte für mein Problem, deswegen frage ich einfach ohne sehr ausführlich gesucht zu haben.

Also ich habe ein Treeview mit bis zu 5 Elementen in die Tiefe. Nun möchte ich gern, um das wilde durchklicken zu vereinfachen, beim öffnen des Formulars bereits alle Knoten (den ersten) aufgeklappt haben, sodass man die 2. Ebene gleich sieht.

Jetzt:

-A
++A1
++A2
+B
+C
+D

Gewünscht:

-A
++A1
++A2
-B
++B1
-C
++C1
-D
++D1


Ist das möglich?

Bin für Eure Anregungen sehr dankbar.

LG aus HH
Matt

[DeddyH]

IMHO sollte FullExpand das sein, was Du suchst.

[ibp]

ja schau mal unter collaps nach...

[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

[Matt]

Danke, dass mit "FullExpand" kenne ich, aber da werden mir ja alle 5 Ebenen angezeigt.

@marabu
JAWOLLLLL... genau das habe ich gemeint, SUPER vielen DANK!!!

[Matt]

@marabu

das merkwürdige ist jetzt nur, dass meine Form nicht mehr maximized ist und ich kann Sie auch nicht vergrößern !!??
Habe dein Quellcode direkt bei onCreate oder onShow getestet, aber es bleibt immer klein.

Selbst ein WindowState := wsmaximized danach hilft nichts!

Gruß Matt

[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

[Matt]

Sorry, war meine Schuld...
Wenn ich das maximized vor dem Expand setze funzt es...

DANKE DIR!!!