ListBox com Edit fazer vinculo

Question

>>Ola pessoal tudo bem ? Eu tenho 2 ListBox e 1 Edit no Form1.....e o seguinte tenho 50 registro no ListaBox1 t� em Portugu�s  e mesmo registo no ListBox2 esta em Ingl�s...Pergunta comofa�o quan...

Rdf · Answer

[quote:675397ee02=�Jairo�]>>Ola pessoal tudo bem ? Eu tenho 2 ListBox e 1 Edit no Form1.....e o seguinte tenho 50 registro no ListaBox1 t� em Portugu�s  e mesmo registo no ListBox2 esta em Ingl�s...Pergunta comofa�o quando digita o nome do registro no Edit1 e fazer a rolagem(aproxima��o) dos registro&#8220;nos ListaBoxs&8221;  e fica na mesma posi��o ,quanto em Portugu�s e Ingl�s.............Abra�os ..Jairo-GO...jairo2877@hotmail.com[/quote:675397ee02]Jairo, tente o seguinte!!Escreva o seguinte c�digo para o evento onChange do seu TEdit :[code:1:675397ee02]procedure TForm1.Edit1Change(Sender: TObject);var i : integer;begin for i := 0 to ListBox1.Items.Count - 1 do  begin   if pos(Edit1.Text, ListBox1.Items.Strings&91;i&93;) = 1 then    begin     ListBox1.ItemIndex := i;     ListBox2.ItemIndex := i;     exit;    end   else    begin     ListBox1.ItemIndex := -1;     ListBox2.ItemIndex := -1;    end;  end;end;[/code:1:675397ee02]obs.: Os itens devem aparecer na mesma ordem nos dois ListBox�s, ou seja, se vc tiver no ListBox1 : pedra, mesa, cavalo.... vc dever� ter no segundo ListBox os correspondentes na mesma ordem : stone, table, horse......