首页 > 代码库 > Delphi中如何设置TcxGrid里每个单元的可不可编辑

Delphi中如何设置TcxGrid里每个单元的可不可编辑

 

procedure TbsAdPartParaDMSForm.cxGridDBTableView3Editing(  Sender: TcxCustomGridTableView; AItem: TcxCustomGridTableItem;  var AAllow: Boolean);var  v_code: string;begin  inherited;  AAllow := true; if (Pos(1248100,cxGridDBTableView3.Controller.FocusedRecord.Values[cxgridparaCode.Index])>0 )
//这个pos函数的作用是检索cxgridparaCode这列的每一行值所包含的字符串‘1248100’的个数 and (AItem.Index
=cxGridDBTableView3PARA_VALUE.Index) then AAllow:=False ;// else// AAllow:=True; v_code := Trim(cxGridDBTableView3.Controller.FocusedRecord.Values[cxgridparaCode.Index]) ; if ((v_code = 1) or (v_code = 2)) and (AItem.Index=cxGridDBTableView3REMARK.Index) then AAllow := false ;// elseend;

 

Delphi中如何设置TcxGrid里每个单元的可不可编辑