HijoIzq[T_, i_]:= If[Position[T[[i]],1]!={},Position[T[[i, All]],1][[1,1]], 0];
HijoDer[T_, i_]:= If[Position[T[[i]],1]!={}, Position[T[[i]],1][[2,1]], 0];
PostOrden[T_, 0] := {};
PostOrden[T_, p_] :=
{PostOrden[T, HijoIzq[T,p]],
PostOrden[T, HijoDer[T,p]],
p};
PreOrden[T_, 0] := {};
PreOrden[T_, p_] :=
{p,
PreOrden[T, HijoIzq[T,p]],
PreOrden[T, HijoDer[T,p]]
};

Orden[T_, 0] = {};
Orden[T_, p_]:=
{Orden[T, HijoIzq[T,p]], p, Orden[T, HijoDer[T,p]]};

T = {{0, 0, 0, 0, 0, 0, 0}, {1, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0}, {0, 1, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 1}, {0, 0, 0, 0, 0, 0, 0}};lista =Flatten[PreOrden[T, 4]];
Manipulate[
TreePlot[T, Automatic, 4, VertexRenderingFunction->({EdgeForm[Black], If[#2===lista[[a]], Red,White], Disk[#1, 0.1], Black, Text[#2, #1]}&)], {a, 1, Length[lista], 1}]

T = {{0, 0, 0, 0, 0, 0, 0}, {1, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0}, {0, 1, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 1}, {0, 0, 0, 0, 0, 0, 0}};
lista =Flatten[Orden[T, 4]];
Manipulate[
TreePlot[T, Automatic, 4, VertexRenderingFunction->({EdgeForm[Black], If[#2===lista[[a]], Red,White], Disk[#1, 0.1], Black, Text[#2, #1]}&)], {a, 1, Length[lista], 1}]

T = {{0, 0, 0, 0, 0, 0, 0}, {1, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0}, {0, 1, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 1}, {0, 0, 0, 0, 0, 0, 0}};lista =Flatten[PostOrden[T, 4]];
Manipulate[
TreePlot[T, Automatic, 4, VertexRenderingFunction->({EdgeForm[Black], If[#2===lista[[a]], Red,White], Disk[#1, 0.1], Black, Text[#2, #1]}&)], {a, 1, Length[lista], 1}]