[giulichajari]

Ya se puede marcar el tema como resuelto y gracias ecfisa:

Código Delphi [-]

procedure TForm1.DBLookupComboBox1Exit(Sender: TObject);
begin
if DBLookupComboBox1.KeyValue<>null then
 begin
    with ClientModule1.cdssubcat do
    begin
          begin
            IndexFieldNames:='idcategoria';
            SetRange([DBLookupComboBox1.KeyValue],[DBLookupComboBox1.KeyValue]);

          end;

    end;
 end;

end;

procedure TForm1.DBLookupComboBox2Click(Sender: TObject);
begin
 with ClientModule1.cdsprod do
              begin
                  IndexFieldNames:='idsubcategoria';
                  SetRange([DBLookupComboBox2.KeyValue],[DBLookupComboBox2.KeyValue]);

              end;
end;

procedure TForm1.EnombreChange(Sender: TObject);
begin
   if DBLookupComboBox2.KeyValue<>null then
       begin
          with ClientModule1.cdsprod do
            begin

              Filtered:=False;
              Filter:='nombre LIKE ''' +'%'+Enombre.Text+'*''' ;

              Filtered:=True;

            end;
      end;
end;

Ademas se podria mostrar en orden alfabetico por marca por ejemplo o por precio.

Lo unico que me gustaria es en vez de un combo un edit que se despliegue... auunque se puede escribir encima del combo y se filtra.