Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 20-09-2013
Caroso Caroso is offline
Miembro
NULL
 
Registrado: jul 2013
Posts: 44
Poder: 0
Caroso Va por buen camino
Question Buscador con sugerencia, similar a google

hola muchachos alguno sabria decirme que componentes utilizar para realizar un buscador, que al comenzar a escribir comienza a sugerirme nombres... similar a google o youtube... algo como cuando se presiona la combinacion Ctrl+barra espaciadora en delphi... sale el cuadro de ayuda en la cual uno moviendose con las flechas (arriba y abajo) navega en el cuadro y moviendo la de los costados se mueve en el codigo sin perder la seleccion en el cuadro de ayuda...

Si no quedo claro sepan disulpamerme e informarme que con gusto se los explicare nuevamente... muchisimas gracias

Saludos... Atte Caroso

Edito:\ Olvide comentar en que lo implementaria... quiero desarrollar un buscador de nodos en un treeview... eso ya lo tengo lo que necesitaria es lo otro... que al escribir en un EDIT (por ejemplo)... me habra el cuadro de sugerencias...

Última edición por Caroso fecha: 20-09-2013 a las 20:05:14. Razón: Falta de aclaracion...
Responder Con Cita
  #2  
Antiguo 21-09-2013
isaiaseml isaiaseml is offline
Registrado
NULL
 
Registrado: oct 2012
Posts: 6
Poder: 0
isaiaseml Va por buen camino
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.

Última edición por isaiaseml fecha: 21-09-2013 a las 00:50:32. Razón: un error de apreciacion
Responder Con Cita
  #3  
Antiguo 21-09-2013
Avatar de nlsgarcia
[nlsgarcia] nlsgarcia is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Caracas, Venezuela
Posts: 2.206
Poder: 21
nlsgarcia Tiene un aura espectacularnlsgarcia Tiene un aura espectacular
Caroso,

Cita:
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:
Espero sea útil

Nelson.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Un buscador de Google para el clubdelphi.com rrf La Taberna 6 09-09-2010 22:57:43
El buscador de Google en el ClubDelphi dec La Taberna 34 31-08-2007 00:10:03
buscador franco-germano competir con Google marcoszorrilla Noticias 22 16-03-2007 02:42:18
Una sugerencia por favor Sugerencia !! yepixxx Firebird e Interbase 6 13-03-2007 19:07:10


La franja horaria es GMT +2. Ahora son las 03:58:59.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi