Autocompletar (ComboBox e LookUpComboBox)

30/04/2003

0

Bom dia!

Gostaria de saber se existe propriedade no ComboBox e ComboLookUp que faz o seguinte:

A pessoa vai digitando e vai autocomplentado, caso encontre algum item que inicie com o que a pessoa está digitando.

Mas caso não tenha esta propriedade, se alguém souber uma rotina para isso também me a judaria!

Grata,

Fabiana :P


Fabiana

Fabiana

Responder

Posts

04/10/2004

Tap_pedroso

habilite a propriedade autodropdown=true e a autocomplete=true do combobox


Responder

04/10/2004

Janbaceiredo

Fabiana,

aqui no forum já foram postadas algumas possibilidades de como realizar essa tarefa.
Bom, caso você queira ver as respostas dadas para essa pergunta em mensagens anteriores, segue abaixo o link:
http://delphiforum.icft.com.br/forum/viewtopic.php?t=6539&highlight=autocomplemento

E temos tambem um artigo enviando pelo nosso colega Daniel Araújo, que trata como guardar um histórico para uma lista de TComboBox.
Segue o link abaixo:
http://www.clubedelphi.net/artigos/cbox01.html

Espero que ajuda você a resolver seu problema,
Até +,
Antônio.


Responder

19/07/2019

Alvaro Vieira

{
Considerando as propriedades

ComboBox1.AutoComplete := true;
ComboBox1.Style := csDropdown;

dá pra tentar algo no evento OnChange do ComboBox:
}


procedure Tform1.ComboBox1Change(Sender: TObject);
var
i: integer;
begin
if (ComboBox1.ItemIndex = -1) then //and (Length(ComboBox1.Text) > 2) then
for i := 0 to ComboBox1.Items.Count -1 do
if Pos(ComboBox1.Text, ComboBox1.Items[i]) > 0 then
begin
ComboBox1.ItemIndex := i;
Break;
end;
end;

Não fica perfeito como nos projetos FireMonkey, mas dá pra brincar.
Já no TDBLookupComboBox isso não é possível porque ele sempre irá procurar pelo início do campo escolhido como pesquisa, aí o jeito é partir para um projeto FireMonkey.
t+
Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar