DBGRD - Tratamento de colunas

Question

Caros amigos:Fa�o inser��o de dados atraves de um DBGRID, por�m gostaria de tratar a entrada de dados da seguinte forma:Quando o cursor estiver na ultima coluna e o usu�rio teclar �enter�ou �tab�, o c...

Marco Salles · Answer

Amigo, Tente Manipular o Evento OnKeyDown Do Grid...Mas Aten��o , Voce Tamb�m Deve Manipular as Setas Do Teclado Evitando Assim Que Se Saia Do Registro.. Onde Voce Encontrar o N�mero Tres Voce Deve Substituir Pelo Numero De Colunas Do Seu DbGrid-1...Assim Se Seu DbGrid Tiver Seis Colunas Coloque Na Instru��o O Valor De Cinco..
Eu Coloquei Tres Porque N�o Sei a Quantidade De Campos Que Seu Grid Esta Mostrando...

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word; 
Shift: TShiftState); 
begin 
  case Key of 
    VK_Down, 
    VK_UP 
      :begin 
          if (DbGrid1.DataSource.DataSet.State in [DsInsert,DsEdit]) Then 
             Key:=0; 
       end; 
    VK_Tab 
       :begin 
           if DbGrid1.SelectedIndex=3 Then 
             if (DbGrid1.DataSource.DataSet.State in [DsInsert,DsEdit]) Then 
                Key:=0;
        end; 
  end; 
end;

F�rum DBGRD - Tratamento de colunas #217375