DBGrid in dem man einer Row ReadOnly zuweisen kann

[nahpets]

Hallo,

wie wäre es damit?

Delphi-Quellcode:

procedure TForm1.ADOTable1BeforeEdit(DataSet: TDataSet);
begin
  DBGrid1.ReadOnly := DataSet.FieldByName('ReadOnly').AsBoolean;
end;

oder damit?

Delphi-Quellcode:

procedure TForm1.ADOTable1AfterScroll(DataSet: TDataSet);
begin
  DBGrid1.ReadOnly := DataSet.FieldByName('ReadOnly').AsBoolean;
end;