Pesquisa incremental num LISTBOX

Ricardo Barreto de Araujo

Ricardo Barreto de Araujo Publicado 29/12/2017 


Olá galera, estou de volta!


Com uma dica legal, por uma necessidade de um cliente, fui busca na internet como realizar uma pesquisa dentro do Listbox, pensei que seria do mesmo jeito, que usamos a função LOCATE.


Como não estava conseguindo fazer,  fui busca no Google uma forma de fazer, e logo conseguir encontrar a solução para este caso.

Neste caso vamos ao Exemplo:


Iniciando o projeto

         Inicie uma nova aplicação VCL no Delphi e adicione Label, Edit, Listbox, deixa igual e figura abaixo.

Figura 1. Pesquisa Incremental.


A Figura 2,  aonde foi adicionando alguns nomes para aparecer no Listbox para podemos fazer os testes.

Figura 2. Evento Oncreate


Na Figura 3,  foi adicionando o código para podemos realizar a pesquisa incremental.

Figura 3. Evento OnChange.



Depois de tudo pronto vamos executar o projeto para testamos.

                                                                                                        Figura 4. Formulário pronto e funcionando


Pessoal, espero que esta dica ajude alguém!


Até a próxima.


Voltar ao topo