Busqueda incremental en un Edit

[ecfisa]

Hola.

Creo que vas a lograr un efecto similar a lo que buscas usando un TComboBox con su propiedad Style = csSimple:

Código Delphi [-]
...
implementation
CONST
  CBOX_HEIGHT = 21;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with ComboBox1 do
  begin
    Style:= csSimple;
    CharCase:= ecUpperCase;
    Text:= '';
    Height:= CBOX_HEIGHT;
  end;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  with TComboBox(Sender) do
  begin
    if Text > '' then
    begin
      Query.Close;
      Query.SQL.Clear;
      Query.SQL.Add('SELECT CAMPO FROM TABLA');
      Query.SQL.Add('WHERE CAMPO LIKE UPPER(:VALOR)');
      Query.ParamByName('VALOR').AsString:= ComboBox1.Text+'%';
      Query.Open;
      while not Query.Eof do
      begin
        if Items.IndexOf(Query.FieldByName('CAMPO').AsString) = -1 then
          ComboBox1.Items.Add(Query.FieldByName('CAMPO').AsString);
        Query.Next;
      end;
      Height:= DropDownCount * CBOX_HEIGHT;
    end
    else
    begin
      Clear;
      Height:= CBOX_HEIGHT;
    end;
  end;
end;

Saludos.

[lucas05]

Gracias ecfisa por la ayuda.

[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.

[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.