Usar coluna do Grid como campo de busca

[Vivendo&Aprendendo]

Olá pessoal!

Preciso saber como faço para usar a primeira coluna do grid como um campo para busca, tipo: Tenho uma tela de vendas e um Grid que mostra os produtos que estão sendo vendidos referentes a aquela venda, eu uso edits para buscar o código do produto que esta sendo vendido, e agora quero tirar os edits e fazer com que o usuário digite o código do produto na primeira coluna de cada linha e ai ele preenche a descrição automaticamente e o usuario só coloca a qtde e se caso ele quizer inserir mais um produto cria-se uma nova linha no grid.

Alguém ai pode me ajudar?

Abraço

Editado Julho 22, 2008 por Vivendo&Aprendendo

[Jhonas]

Preciso saber como faço para usar a primeira coluna do grid como um campo para busca, tipo: Tenho uma tela de vendas e um Grid que mostra os produtos que estão sendo vendidos referentes a aquela venda, eu uso edits para buscar o código do produto que esta sendo vendido, e agora quero tirar os edits e fazer com que o usuário digite o código do produto na primeira coluna de cada linha e ai ele preenche a descrição automaticamente e o usuario só coloca a qtde e se caso ele quizer inserir mais um produto cria-se uma nova linha no grid.

O codigo que estou passando servirá apenas como exemplo de partida, voce deve modificar o codigo de acordo com as suas necessidades.

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  // MUDANDO DE CAMPO USANDO A TECLA TAB
  if Key = #9 then
      if not (ActiveControl is TDBGrid) then
         begin
            Key := #0;
            Perform(WM_NEXTDLGCTL, 0, 0);
         end
      else if (ActiveControl is TDBGrid) then
         with TDBGrid(ActiveControl) do
         if selectedindex < (fieldcount - 1) then
            begin
               //selectedindex := selectedindex + 1;
               CDS_Vendas.Edit;
               case selectedindex of
                1 : CDS_VendasCODCLI.AsInteger     := CDS_CadcliCOD.AsInteger;
                2 : CDS_VendasCOD_ATV.Value := '';
                3 : begin
                       CDS_CaixaP.First;
                       if CDS_CaixaP.Locate('COD_ATIV',CDS_VendasCOD_ATV.Value,[loCaseInsensitive, loPartialKey]) then
                          CDS_VendasQTDE.Value := CDS_CaixaPQTDE.Value
                       else
                          CDS_VendasQTDE.Value := 0;
                    end;
                4 : CDS_VendasDATA.Value := now;
                5 : CDS_VendasPRECO.Value := 0.00;

                // OUTROS CAMPOS DA TABELA

               if  selectedindex = 1 then
                   begin
                      // CRIA NOVA LINHA DE REGISTRO
                      CDS_VendasNUM.AsInteger := CDS_Vendas.RecordCount+1;
                      ndiv := 0;
                   end

            end
        else
            begin
               if CDS_VendasPRECO.Value <> 0 then nbonif := nbonif + 1;
               CDS_Vendas.Post;
               CDS_Vendas.Append;
               selectedindex := 0;
            end;

end;

abraço