Tá dificil de mais (dbgride)

[rogeriojesus]

Ola pessoal, sou novo no forum, alias um ótimo fórum;

Ao tentar dezenvolver um programa de controle de estoques, me deparei com a seguinte solução(PROBLEMA)

devido ao tanto de baixas, entradas e transferenças de estoque, resolvi tentar fazar o que já hávia visto em outro sistema

atraves de uma dbgride onde apertando um botão (NOVO) essa gride ficasse em modo de edição mas sem nenhum valor

então eu iria digitar o código do produto na primeira coluna da gride e altomaticamente apareceria a descrição desse produto na segunda coluna dessa gride

O problema é que eu não tenho nem idéia de como fazer.

se alguém tiver algum exemplo de como seria, fico a agradecer.

Obrigado a todos.

[Jhonas]

exemplo:

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); 
begin 
   if Key = #13 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_Banco.Edit; 
               case selectedindex of 
                1 : CDS_BancoCODCLI.AsInteger  := CDS_CadcliCOD.AsInteger; 
                2 : CDS_BancoDATA.value := now; 
                3 : CDS_BancoDEPOSITOS.Value := 0.00; 
                4 : begin 
                       // comandos 
                    end; 
            end; 
end;

obs: conforme voce muda de coluna com a tecla TAB ( começando em 0 zero ) voce pode atribuir o valor que quiser as colunas referenciadas com os campos da sua tabela

abraço

[rogeriojesus]

Obrigado pela ajuda;

Não consegui fazer, tentei auterar, mão deu erro mas tambem não aparece o resultado.

veja as auterações que fiz

procedure TForm1.DBGrid2KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 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;
               ClientDataSet2.Edit;
               case selectedindex of
                1 : ClientDataSet2CODIGO.AsInteger  := ClientDataSet1CODIGO.AsInteger;
                2 : ClientDataSet2NOME.value := ClientDataSet1NOME.value;

                3 : begin
                       // comandos
                    end;
            end;
end;
end;

[Jhonas]

if Key = #13 then

esse comando é para quando voce está mudando de campo com a tecla < Enter >

use

if Key = #9 then se voce estiver mudando de campo com a tecla <Tab >

abraço