F�rum Alterar apenas um campo do DBGrid #443136

16/05/2013

Bom dia pessoal, gostaria de deixar alterar um campo somente de uma tabela tempor�ria exibida no DBGrid. Por exemplo:

O Grid est� assim:

0 - Action
1 - Action_Nome
2 - Permissao

Gostaria de poder editar apenas o campo Permissao, seria assim:

if DBGrid1.SelectedIndex=6 then // Aqui mudaria para 2 e colocaria isso no OnColEnter
    DBGrid1.Options := DBGrid1.Options - [dgEditing] 
  else 
    DBGrid1.Options := DBGrid1.Options + [dgEditing];

Frederico Brigatte***

Curtir t�pico

+ 0

Responder

Posts

16/05/2013

Frederico Brigatte***

Eu fiz assim:

procedure TfrmAcesso.DBGrid3ColEnter(Sender: TObject);
begin
  if DBGrid3.SelectedIndex=2 then
  begin
    DBGrid3.Options := DBGrid1.Options + [dgEditing]
  end
  else
  begin
    DBGrid3.Options := DBGrid1.Options - [dgEditing];
    showMessage('Campo n�o permitido para edi��o');
  end;
end;

A primeira coluna est� deixando editar. O que est� errado?

Responder

Gostei + 0

18/05/2013

Frederico Brigatte***

Ningu�m?

Responder

Gostei + 0

20/05/2013

Thiago Santos

J� tentou usar tipo:

DBGrid1.Columns[0].ReadOnly := True;

Responder

Gostei + 0

20/05/2013

Frederico Brigatte***

N�o, coloco no evento OnColEnter do Grid, pode ser?

Responder

Gostei + 0

20/05/2013

Thiago Santos

Um exemplo se fosse no OnColEnter:

var
  iColuna: Integer;
begin

    // �ndice da coluna
    iColuna := 0;
    // Apenas modo leitura na iColuna
    DBGrid1.Columns[iColuna].ReadOnly := DBGrid1.SelectedIndex = iColuna;
    // Mensagem de alerta
    if DBGrid1.Columns[iColuna].ReadOnly then
      MessageDlg('Coluna n�o permitida para edi��o.',mtWarning,[mbOK],0);

end;

Responder

Gostei + 0

20/05/2013

Thiago Santos

Mas eu acho que fica melhor no OnCellClick. Apenas uma sugest�o.

procedure TForm1.DBGrid1CellClick(Column: TColumn);
var
  iColuna: Integer;
begin

    // �ndice da coluna
    iColuna := 0;
    // Apenas modo leitura na iColuna
    DBGrid1.Columns[iColuna].ReadOnly := DBGrid1.SelectedIndex = iColuna;
    // Mensagem de alerta
    if DBGrid1.Columns[iColuna].ReadOnly then
      MessageDlg('Campo n�o permitido para edi��o.',mtWarning,[mbOK],0);

end;

Responder

Gostei + 0

20/05/2013

Frederico Brigatte***

Ok, o indice seria a coluna que quero travar, n�?

Responder

Gostei + 0

21/05/2013

Thiago Santos

Sim.

Responder

Gostei + 0

21/05/2013

Frederico Brigatte***

Ok, obrigado. Vou implementar isso e testar.

Responder

Gostei + 0