cxGrid中有没有办法操作单个cell是否只读？

procedure TFeeder_Alternative_F.cxGrid3DBTableView1Editing(
  Sender: TcxCustomGridTableView; AItem: TcxCustomGridTableItem;
  var AAllow: Boolean);
begin
  inherited;
  if  AItem.ID in[0,1,2,3,4,5,6,7,9] then
  begin
    AAllow:=False;
    cxGrid3DBTableView1Column9.Properties.ReadOnly:=True;
  end;
  if AItem.ID=0 then
  begin
    if cxGrid3DBTableView1.DataController.Controller.FocusedRecord.Values[10]=‘0‘ then
    begin
      AAllow:=False;
      cxGrid3DBTableView1Column9.Properties.ReadOnly:=True;
      MessageDlg(‘提示:已鎖定,此筆材料不能作替代料!‘,mtWarning,[mbOK],0);
      Exit;
    end
  else
    begin
      if cxGrid3DBTableView1.DataController.Controller.FocusedRecord.Values[6]<>‘00‘ then
      begin
        AAllow:=False;
        cxGrid3DBTableView1Column9.Properties.ReadOnly:=True;
        MessageDlg(‘提示:已鎖定,此筆材料不能作替代料!‘,mtWarning,[mbOK],0);
        Exit;
      end
    else
      AAllow:=True;
      cxGrid3DBTableView1Column9.Properties.ReadOnly:=False;
    end;
  end;
end;