Fazer busca dinamica no TreeView

Question

ol� PessoalComo eu fa�o para em um edit ir buscando num treeview o nome que est� sendo digitado ?eu tenho algo parecido s� q tem o edit e um grid, ent�o conforme vou digitando ele busca no grid com Lo...

Diogoalles · Answer

bom dia pessoalhehehe, to penando com essa, pesquisei e tentei algumas coisas mas n�o consegui.algu�m poderia me ajudar?valeuDiogo...

Salsa · Answer

faz um loop ... pega qntos itens tem no treeview... usando .count
faz um for ...
e vai checando se o valor do texto eh igual ou contem noq vc tah digitando... sei la... axu q assim da pra fazer de boa :)

Diogoalles · Answer

� vai me ajudar mt,preciso de algo que o usuario v� digitando e j� busca no treeview, deixando marcado....similar ao que se faz numa busca num edit onde ele j� vai buscando no grid.valeuDiogo...

Emerson Nascimento · Answer

altere a propriedade [b:1bad1439ae]HideSelection[/b:1bad1439ae] do TreeView para [b:1bad1439ae]FALSE[/b:1bad1439ae] e use a seguinte rotina no OnChange do seu componente Edit:

procedure TForm1.Edit1Change(Sender: TObject);
var
  i, tamanho: integer;
  no: ttreenode;
begin
  tamanho := length(edit1.text);
  if tamanho > 0 then
    for i := 0 to TreeView1.Items.Count-1 do
      if Copy(TreeView1.Items[i].Text,1,tamanho) = edit1.text then
      begin
        no := TreeView1.Items[i];
        TreeView1.Select(no);
        break;
      end;
end;

Diogoalles · Answer

e ai emersonblz?cara, implementei mas o foco do treeview nem se mexe ele n�o entra no  �if Copy(TreeView1 ...�pela logica acho q t� certo o vc t� vendo algo de errado ? � seivaleu mesmo.. Diogo...

Emerson Nascimento · Answer

talvez o problema esteja na �caixa� dos caracteres.
tente assim:

procedure TForm1.Edit1Change(Sender: TObject); 
var 
  i, tamanho: integer; 
  no: ttreenode; 
begin 
  tamanho := length(edit1.text); 
  if tamanho > 0 then 
    for i := 0 to TreeView1.Items.Count-1 do 
      if AnsiUpperCase(Copy(TreeView1.Items[i].Text,1,tamanho)) = AnsiUpperCase(edit1.text) then 
      begin 
        no := TreeView1.Items[i]; 
        TreeView1.Select(no); 
        break; 
      end; 
end;

[size=18:2e69c57e08][b:2e69c57e08]n�o esque�a de alterar a propriedade HideSelection do TreeView para FALSE.[/b:2e69c57e08][/size:2e69c57e08]

Diogoalles · Answer

Blz, funcionou 100�.obrigado !...