Fórum Permitir Edição e proibir INSERT no DBGrid #375978

procedure TDataModule1.cdsHorariosBeforeInsert(DataSet: TDataSet);
begin
    if cdsHorarios.RecordCount = 6 then
        raise Exception.Create(´Operação não permitida!´);
end;

function  NaoInsereDBGrid(DBGrid: TDBGrid; DataSet: TDataSet; Key: Word): Word;
begin
  { Não deixa inserir registros no DBGrid caso:
    1- estiver em modo de edição: E
    1.1- se clicar na tecla "Insert"; OU
    1.2- se clicar na tecla "Seta para baixo" E estiver no último registro; OU
    1.2- se clicar na tecla "Tab" E estiver no último registro E estiver na
         última coluna visível. }
  Result := Key;

  if  dgEditing in DBGrid.Options then
    begin
      if  ( Key = VK_INSERT )
      or  ( (Key = VK_DOWN) and (DataSet.RecNo = DataSet.RecordCount) ) then
          Result := 0
      else
        if  ( Key = VK_TAB ) and ( DataSet.RecNo = DataSet.RecordCount ) then
          begin
            if  ( DBGrid.SelectedIndex = RetIdxUltimaColVisivel(DBGrid) ) then
                Result := 0
            ;
          end
        ;
      
    end
  ;
end;

function  RetIdxUltimaColVisivel(DBGrid: TDBGrid): integer;
var
  x: integer;
begin
  Result := -1;

  for x := DBGrid.Columns.Count-1 downto 0 do
  begin
    if  DBGrid.Columns.Items[x].Visible then
      begin
        Result := x;
        Break;
      end
    ;
  end;
end;



procedure Tform.dbgrQueryKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  { Para não deixar apagar o registro }
  if  Key = VK_DELETE then
      Key := VK_NONAME
  ;

  Key := NaoInsereDBGrid( TDBGrid(Sender), TDBGrid(Sender).DataSource.DataSet, Key );
end;

procedure TDataModule1.cdsHorariosBeforeInsert(DataSet: TDataSet); 
begin 
    if cdsHorarios.RecordCount = 6 then 
        raise Exception.Create(´Operação não permitida!´); 
end;