Дерево TreeView

← →
sav © (2004-03-18 15:22) [0]

Как оставить не развернутым последний уровень,
а все предидущие развернуть?

← →
Digitman © (2004-03-18 16:05) [1]

последний уровень каждого маршрута не имеет дочерних узлов, поэтому логически бессмысленно говорить о его "свернутости" или "развернутости"

может, речь таки идет о предпоследнем уровне ?

← →
sav © (2004-03-18 16:15) [2]

Извиняюсь о предпоследнем конечно же

← →
Digitman © (2004-03-18 16:41) [3]

тогда можно попробовать реализовать это так :

var
tn: TTreeNode;
with TreeView.Items do
for i:= 0 to Count - 1 do
begin
tn := Item[i];
if not tn.HasChildren and Assigned(tn.parent) then
tn.Parent.Expanded := false;
end;

проверь ... вдумайся в логику .. я не проверял ... возможны упущения

а вообще говоря, задача либо неточно сформулирована либо нерешаема в общем случае

пусть узел A имеет дочерние узлы A[1] и А[2]
в свою очередь, узел A[1] не имеет доч.узлов (это - последний уровень в ветке, растущей от А), а узел А[2] имеет как минимум один доч.узел (это - НЕ последний уровень в ветке, растущей от А)

сразу возникает вопрос : дорлжен ли быть expanded узел А ?

по отношению к А[1] - нет, по отношению к А[2] - да..

получается - неразрешаемая в дан.случае дилемма ..

Я попробовал все отлично работает
Спасибо!

Дерево TreeView Найти похожие ветки