Auto completar

[Lube]

alguém sabe como fazer um auto completar em um edit ou dbedit(melhor) igual ao do Internet Explorer?

q ele abre e já mostra as opções já cadastradas conforme o q for digitado.

valeu

[Jhonas]

como fazer um auto completar em um edit ou dbedit(melhor) igual ao do Internet Explorer?

q ele abre e já mostra as opções já cadastradas conforme o q for digitado.

Um exemplo:

procedure TFAtesta.DBEdit1Change(Sender: TObject);
begin
         AtestaX_IB.Open;
         AtestaX_IB.First;

         if AtestaX_IB.Locate('EMPRESA',trim(DBEdit1.text),[loPartialKey]) then
            begin
               DBLookupComboBox1.KeyValue := trim(DBEdit1.text);
               //achei := 1;
            end
         else
            //achei := 0;
    
end;

OBS: conforme voce vai digitando, ele irá buscando o primeiro registro que contenha a sequencia de caracteres digitados.

voce deve modificar este codigo para seu uso.

abraço

[Lube]

Obrigada Jhonas, vou testar e digo se isso que quero mesmo

valeuuu

[Lube]

Obrigada Jhonas, vou testar e digo se isso que quero mesmo

valeuuu

Oi Jhonas, seguinte, eu to tentando colocar esse codigo e usar o lookup como você sugeriu...só q eu quero usar da seguint maneira:

o lookup vai servir apenas para consulta, e não para gravar no banco, ele vai ficar atras do dbedit, e vai abrir e mostrar o texto conforme for achando na consulta. Dae o usuário escolhe o texto gravado se quiser e faz as alteracoes necessarias no dbedit, que serah gravado no banco.

só q o problema estah nas propriedades do lookup, tem q ter o dataset e o datafield preenchidos para gravação não tem? tentei deixar em branco mas ele fica desabilitado... onde eu coloco a consulta? seria em listsource?

:blush:

[Jhonas]

só q o problema estah nas propriedades do lookup, tem q ter o dataset e o datafield preenchidos para gravação não tem? tentei deixar em branco mas ele fica desabilitado... onde eu coloco a consulta? seria em listsource?

voce pode colocar o comando em um Edit, já que ele será usado apenas para consulta.

exemplo:

procedure TFAtesta.Edit1Change(Sender: TObject);
begin
         AtestaX_IB.Open;
         AtestaX_IB.First;

         if AtestaX_IB.Locate('EMPRESA',trim(Edit1.text),[loPartialKey]) then
            begin
               // comandos se o registro for localizado
            end
         else
            begin
               // comandos se o registro não for localizado 
            end;  
end;

abraço