Como localizar e posicionar em um item do TreeView

Delphi

01/07/2004

Caros amigos

Gostaria de saber como posso localizar um item no treeview e posicionar nele e emular um enter, depois passar para o próximo item.
Exemplo
Localizar o item 2000 e expandir e ir pasando pelo 2001, 2002, 2003, 2004... parando no 2004.


1000
[b:5a570c1939]2000[/b:5a570c1939]
2001
2002
2003
2004
Cordialmente
3000
4000

Cordialmente

José Ricardo


Zlink

Zlink

Curtidas 0

Respostas

Dataclass

Dataclass

01/07/2004

InfoAgenda,

Não ficou muito claro o que você quer mas fiz isso aqui que pode te ajudar.

Usei um TreeView , um Edit e um Button.

Minha idéia foi : Digitar no Edit o valor do nodo,apertar no botão para localizar o nodo e expandi-lo.

Funcionou muito bem.

procedure TForm1.btnPesquisarClick(Sender: TObject);
var i:integer;
begin
  {Pecorrendo os Items}
  for i:=0 to treeView.Items.Count-1 do
    if (treeView.Items.Item[i].Text = edPesquisa.Text) then
    begin
      //Expandindo o Nodo desejado.O parâmetro False não
      //habilita a recursão (ele não vai expandir quem estiver
      //dentro do Nodo localizado ) e True habilita a recursão,
      //dessa forma ele expande o que você localizou e todos os outros
      //nodos internos a ele (obviamente só os que possuem filhos) )}
      treeView.Items.Item[i].Expand(False);
    end;
  end;


Qualquer coisa estamos prontos pra ajudar!


GOSTEI 0
POSTAR