Autocompletar (ComboBox e LookUpComboBox)
30/04/2003
0
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
Posts
04/10/2004
Tap_pedroso
04/10/2004
Janbaceiredo
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.
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+
Clique aqui para fazer login e interagir na Comunidade :)