cxgrid 控制单元格不能编辑

{通过cxgrid 表格单击事件控制单元格是否可以编辑。如下所示，当单击到company这个单元格时，判断fruit单元格的内容，然后控制整个表格的编辑。（或则控制某些列是否可以编辑）
}

procedure Tform.cxGrid_testDBTableView1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: 
      TcxGridTableDataCellViewInfo;AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
inherited;
 if cxGrid_testDBTableView1.Columns[ACellViewInfo.Item.Index].DataBinding.FieldName = 'company' then
 begin
　　if cxGrid_testDBTableView1.DataController.DataSet.FieldByName('fruit').AsString='葡萄' then
   　　  cxGrid_testDBTableView1.OptionsData.Editing := False； 
    　　 //控制某列cxGrid_testDBTableView1Fruit.option.editing := false
　　if cxGrid_testDBTableView1.DataController.DataSet.FieldByName('fruit').AsString='水蜜桃'then
  　　  cxGrid_testDBTableView1.OptionsData.Editing := True; 
  end; 

end;