Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как перебрать все дочерние ноды выбранного нода у

Автор: 0FF 28.10.2006, 00:45

Как перебрать все дочерние ноды выбранного нода у VirtualTreeView?

Автор: RA 29.10.2006, 02:39

Перебор, всех дочерних элементов и их дочерних

Код


Procedure EnumnKids(SNode: PVirtualNode);
var i:integer;
begin
    for i:=1 to SNode.ChildCount do
    begin
       SNode:= Form1.Vst.GetNext( SNode );
       
       {Action}

       if SNode.ChildCount > 0 then EnumnKids(SNode);
    end;
end;