Código Delphi [-] const COLNRO = 1; // Nro de columna que permanecerá ReadOnly // TDataSource OnStateChange procedure TForm1.DataSource1StateChange(Sender: TObject); begin DBGrid1.Columns[COLNRO].ReadOnly:= not (TDataSource(Sender).DataSet.State = dsInsert); end;
const COLNRO = 1; // Nro de columna que permanecerá ReadOnly // TDataSource OnStateChange procedure TForm1.DataSource1StateChange(Sender: TObject); begin DBGrid1.Columns[COLNRO].ReadOnly:= not (TDataSource(Sender).DataSet.State = dsInsert); end;