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;
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;