[resolvido] Travar Dbgrid

[Bruno Souza]

Olá amigos

meu problema é o seguinte, tenho um formulário que tem apenas um menu de funções e um DBGrid, onde serão incluidas as informações... conforme na figura abaixo:

Ele funciona perfeitamente, só que quando o usuário está digitando uma informação no campo do DBGrid ele sempre acaba apertando a seta pra baixo do teclado, e isso gera um novo registro do DBGrid e por mais que ele aperte seta pra cima pra voltar e continuar editando a linha anterior na hora de gravar o registro da erro.

Então eu gostaria de saber se tem algum jeito de atribuir o append somente ao botão, e não aos comando do DBGrid, eu queria que o DBGrid fosse utilizado somente para digitação dos dados.

Eu até cheguei a interceptar a msg do botão seta pra baixo só que não vai ter como ficar sem este botão, o ideal mesmo é que as funções de DB fosse executadas somente a partir dos botões de menu.

Quem tiver alguma idéia. posta aí

Obrigado

[Guest --Jonas --]

Coloque este codigo no envento onkeypress do dbgrid e faça as modificações necessarias, a tecla de seta para baixo mesmo sendo clicada, abrira novo registro no dbgrid mas a tecla de seta para cima desfara o registro.

if (Key = #13) then   // tecla enter 
      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_Cadastro.Edit;
               case selectedindex of
                1 : // codigo que voce quiser;
                2 : //...;
               
               end;
  
            end
         else
            begin
               CDS_Cadadtro.Post;
               CDS_Cadastro.Last;
               CDS_Cadastro.Append;
               selectedindex := 0;
            end;

   if (Key = #9) then   // tecla Tab                    
      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) then
            begin
               CDS_Cadadtro.Edit;
               case selectedindex of
                1 : // codigo que voce quiser;
                2 : //...;
     
               end;

            end
         else
            begin
               CDS_Cadadtro.Post;
               CDS_Cadastro.Last;
               CDS_Cadastro.Append;
               selectedindex := 0;
            end;

[Micheus]

..., só que quando o usuário está digitando uma informação no campo do DBGrid ele sempre acaba apertando a seta pra baixo do teclado, e isso gera um novo registro do DBGrid e por mais que ele aperte seta pra cima pra voltar e continuar editando a linha anterior na hora de gravar o registro da erro.

tratando especificamente deste problema, e sem alterar outros comportamentos da sua tela, acho que você poderia apenas interceptar as teclas DOWN e UP (no evento OnKeyDown do seu DBGrid) durante a edição ou inserção evitando o efeito mencionado:

procedure TBrwTesteDBEdit.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if ((Key = VK_DOWN) or (Key = VK_UP)) and // seta para baixo ou para cima
     ((Sender as TDBGrid).DataSource.State in [dsInsert, dsEdit]) then  // e estando em modo inserção/edição
    Key := 0;  // descarta a tecla
end;

o código é genérico e pode ser copiado/colado em qualquer outro dbgrid

Abraços

[Bruno Souza]

Obrigado Jonas pelo código, mas não usei... tenho alguns campos de preenchimento obrigatório então da muito pau na hora de criar um novo registro e deixar campos em branco...

... Micheus, eu já tinha tentado interceptar as teclas, mas eu estava travando o DBGrid todo e não só no Insert ou Edit...

..... assim da pra usar tranquilo, Obrigado.