Localizar nodo en un arbol
 

hola,

Tengo un treeview cargado y sin expandir, y quiero buscar un nodo, posicionarme sobre él y expandir el arbol, pero expandirlo sólo sobre esa rama, es decir no quiero que se me expanda todos los niveles del árbol sino sólo aquel que tengo seleccionado.

He buscado en los foros de delphi y he encontrado un hilo donde explicaban el siguiente procedimiento.

Lo he seguido a rajatabla y el árbol no se expande, queda contraido y cuando empiezo a abrirlo veo como si se situa en el nodo buscado, pero para visualizarlo tengo que ir abriendo yo los niveles superiores de este

¿Hay algún fallo en el código o es el comportamiento normal????.

Prueba este método:

Código Delphi [-]
var
  Nodo: TTreeNode;
  I: Integer;

begin
  for I := 0 to TreeView1.Items.Count - 1 do
  begin
    Nodo := TreeView1.Items[i];

    if Nodo.Text = 'Mi nodo' then
    begin
      Nodo.Selected := true;
      Nodo.MakeVisible;

      break;
    end;
  end;
end;

// Saludos