Buscar por:

Localizando um nó pelo nome em um determinado nivel do treeview

Código

// Neste procedimento deve-se passar o Nome para a Busca e o Nivel em

//que deseja fazer a busca

procedure TForm1.LocalizaNoNivel(NomeBusca:String; Level:Integer);

var x:Integer;

begin

  for x := 0 to TreeView1.Items.Count - 1 do  //percorre o TreeView

    begin

      if (TreeView1.Items[x].Text = NomeBusca) and  // Verifica o nome e o Nivel

         (TreeView1.Items[x].Level = Level)

        then

          begin

            TreeView1.Items.Item[x].Selected:=True;

            Break;

          end;

    end;

end;

//modelo de Uso

//Coloque um Button no form e no evento onclick do mesmo chame o procedimento de busca

procedure TForm1.Button1Click(Sender: TObject);

begin

  LocalizaNoNivel('Teste',1);  //Irá percorrer o Treeview procurado pela string

                                          //'Teste' somente no Nivel 1 do treeview

end;