Autocompletar (ComboBox e LookUpComboBox)
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
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
Curtidas 0
Respostas
Tap_pedroso
30/04/2003
habilite a propriedade autodropdown=true e a autocomplete=true do combobox
GOSTEI 0
Janbaceiredo
30/04/2003
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.
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.
GOSTEI 0
Alvaro Vieira
30/04/2003
{
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+
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+
GOSTEI 0