Busqueda incremental en un Edit

[lucas05]

Hola estoy usando Delphi 7 y MySQL. Quería saber como hacer una búsqueda incremental, como la de los buscadores de Internet. Mi intención es que mientras escriba dentro de un Edit, abajo de este aparezcan las distintas opciones, luego presionar Enter y que la opción elegida pase a una grilla.

Muchas Gracias.

[microbiano]

en la parte inferior de este hilo tiens muchos enlaces

[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

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.