Hola, No entiendo como lo queres hacer, a que te referis con lo de tecla de función??. Te digo como lo haría yo:
Pondría un TEdit el cual va a contener la cadena a buscar. Cada vez que se modifique el contenido del mismo se van a mostrar todos los registros de la BD que contengan la palabra del Edit:
En el evento OnChange de TEdit pone esto:
Código Delphi
[-]
procedure TfrmPrincipal.EBusquedaChange(Sender: TObject);
begin
with Query1 do begin
Close;
if EBusqueda.Text = '' then
SQL.Text := 'SELECT * FROM Clientes'
else begin
SQL.Text:= 'SELECT * FROM Clientes WHERE UPPER(Nombre) LIKE (UPPER(:Nombre))';
ParamByName('Nombre').Value := '%' + EBusqueda.Text + '%';
end;
Open;
end;
end;
Si lo que queres es permitir que la busqueda se haga por el campo nombre o por el de codigou otro, podes poner un RadioButton por cada Campo por el que queres que se pueda realizar la busqueda y agregar una rutina en el evento OnChange del TEdit que chequee qué RadioButton es el que esta checkeado.
Bytes..