[[rruz]]

Puedes usar este codigo para determinar sin al menos un nodo esta expandido o no en el arbol.

Código Delphi [-]
function ArbolExpandido(Arbol : TTreeView): Boolean;
var
    Nodo: TTreeNode;
begin
  Result := false;
  if Arbol.Items.Count = 0 then Exit;
  Nodo := Arbol.Items[0];
  while Nodo <> nil do
  begin
    Result := Nodo.Expanded;
    if Result then Break;
    Nodo := Nodo.GetNext;
  end;
end;