Buscador con sugerencia, similar a google

[isaiaseml]

yo lo que hago es en el evento Onchange del incrementalsearch
programo lo siguiente

Código Delphi [-]




var txt, sfind: string;
     len: integer;

  begin
     if edFromCode = true then
        begin
                edFromCode := false;

                 exit;

        end;
       txt:= busca.Text;
       if Length(txt)=0 then
       exit;

     sqlmiqry();


        sfind:=miqry.FieldByName (''+campo+'').AsString;

        len := Length(sfind) - Length(txt);
          if len > 0 then begin

         edFromCode:=true;
   busca.Text:=sfind;
   busca.SelStart:=Length(txt);
   busca.SelLength:=len;

   end;

end;

y en el evento Onkeydown del mismo componente pongo esto

Código Delphi [-]


begin
         if (Key=VK_DELETE) or (Key=VK_BACK) then begin
   if Length(busca.Text)>0 then
   begin
     edFromCode := true;

   end
   else if Length(busca.Text)=0 then
   begin

        sqlmiqry();
     edFromCode := true;
 //     exit;
   end;
 end;
end;

con eso logro que me regrese conforme voy tecleando el evento que mas se le paresca a la consulta que hago a mi qry

la variable edfromcode declarala de tipo booleano ... espero me haya dado a entender.

[[nlsgarcia]]

Caroso,

Empezado por Caroso

...que al escribir en un EDIT (por ejemplo)...me habra el cuadro de sugerencias...

Revisa los Msgs #5 y #18 del link:

Autocompletar en TEdit : http://www.clubdelphi.com/foros/showthread.php?t=84100

Espero sea útil

Nelson.