Delphi/Lazarus: TreeView vollständig aufklappen oder zuklappen

Nichts leichter als das. Du brauchst gar nicht durch alle Äste automatisch zu navigieren.

Benutze einfach

TreeView1.FullExpand; 

um alle Äste auszuklappen und

TreeView1.FullCollapse;

um alle Äste wieder zu schließen.
22.11.2013 um 23:27

Wenn du trotzdem deine Expand-Funktion benutzen möchtest, kannst du das natürlich auch tun:

if TreeView1.Items[0] <> nil then
   TreeView1.Items[0].Expand(True);

Oder:

if TreeView1.Items.GetFirstNode <> nil then 
   TreeView1.Items.GetFirstNode.Expand(True);

Für den Fall dass das erste Item der TreeView gesetzt ist (sonst gibt es eine Exception), führen wir das Expand() auf dieser ersten TreeView-Node durch. Das "true" sorgt dafür, dass auch alle anderen Äste, die an diesem Node hängen, aufgeklappt werden. Übergeben wir "false", wird nur der Node aufgeklappt, auf dem wir das übergeben.
23.11.2013 um 01:28