form1.DataSet1OnBeforeEdit(DataSet:TDataSet);
begin
  if ... then
    raise Exception.Create('這筆資料不允許修改');
   //或者如果你不想跳出錯誤訊息的話,可以改用abor
end;

引言: hagar 兄, TField 的 ReadOnly= True 是針對整個 Column, 我想針對的某些特殊的 Row, 有些 CheckBox disable, 有些 enable 讓user 做 check or uncheck.

引言: 各位大大, 小弟在 TwwDBGrid 中將某個欄位的 Edit Control 設成CheckBox, 但小弟想在某些情況下將CheckBox設成disable, 請問各位大大, 要如果才能取得在TwwDBGrid 中 CheckBox 這個控制項的 Name... 需要各位大大的協助

procedure TFPM51104.DBGrid1CalcCellColors(Sender: TObject; Field: TField;
  State: TGridDrawState; Highlight: Boolean; AFont: TFont; ABrush: TBrush);
begin
  if ClientDataSet2.FieldByName( 'SELECTED' ).AsString = 'Y' then
    // disable checkbox cloumn
    DBGrid1.ColumnByName( 'PRIV_WRITE' ).ReadOnly := False
  else
    // enabled checkbox cloumn 
    DBGrid1.ColumnByName( 'PRIV_WRITE' ).ReadOnly := True;
  end;
end;