Busqueda incremental en un Edit

[dekorone16]

Aque te refieres cuando pones VALOR ?????????

[dekorone16]

Ya puede resolver, VALOR es una propiedad del combobox, otra pregunta, como puedo hacer para que al momento que encuentre un resultado y al darle click o enter se desaparezca la ventanita?????????????????

[ecfisa]

Empezado por dekorone16

Ya puede resolver, VALOR es una propiedad del combobox, otra pregunta, como puedo hacer para que al momento que encuentre un resultado y al darle click o enter se desaparezca la ventanita?????????????????

Hola.

No entiendo bien... ¿ Donde haces el click y que es lo que deseas que desaparezca ?

Saludos.

[dekorone16]

Por ejemplo:

Si escribo la letra "J" me aparecen todos los posibles resultados con la letra "J" como JUAN,JOSE,JULIAN, ahora si selecciono JOSE se pone el nombre en el TComboBox pero sigue apareciendo la lista de los resultados.

¿Como se elimina esa lista al momento de que hayas seleccionado un registro?

[ecfisa]

Hola dekorone16.

¿Como se elimina esa lista al momento de que hayas seleccionado un registro?

Código Delphi [-]
procedure TForm1.ComboBox1Exit(Sender: TObject);
begin
  ComboBox1.Items.Clear;
end;

Saludos.

[dekorone16]

Creo que no me eh explicado bien, cuando hace la búsqueda los resultados vienen dentro de un rectángulo, solo quiero que al seleccionar el registro que quiero se elimine o esconda el rectángulo !!

[ecfisa]

Hola.

Si deseas que ademas de eliminarse los items también se repliegue el ComboBox, sería:

Código Delphi [-]
procedure TForm1.ComboBox1Exit(Sender: TObject);
begin
  with Sender as TComboBox do
  begin
    Items.Clear;
    Height:= CBOX_HEIGHT;
  end;
end;

Saludos.

[dekorone16]

No logro hacer que se repliegue cuando selecciono el registro que quiero, seguiré intentando, gracias !

[ecfisa]

Empezado por dekorone16

Aque te refieres cuando pones VALOR ?????????

Hola dekorone16.

VALOR es el nombre del parámetro que se le envia a la consulta SQL. Dentro de la consulta y para que pueda ser reconocido como parametro siempre debe ir precedido de dos puntos ( : ).

Por ejemplo si tomando en cuenta el código anterior hicieramos:

Código Delphi [-]
   ShowQuery.ParamByName('VALOR').AsString:= 'PER'+'%';

La consulta que se efectuaría sería:

Código SQL [-]
SELECT CAMPO FROM TABLA
WHERE CAMPO LIKE UPPER('PER%')

Mostrando aquellos campos que comienzan por PER y por haber usado la función UPPER también per, Per, pER, etc.

Saludos.