首页 >  Delphi  > 【cxgrid】根据条件限制行是否可以编辑

【cxgrid】根据条件限制行是否可以编辑

本文由 猛 于 2017-11-12 14:49 发布在  Delphi    

procedure TFrmHR_KQHZB.GRDTVMXEditing(Sender: TcxCustomGridTableView;
  AItem: TcxCustomGridTableItem; var AAllow: Boolean);
var
  AKeyValue : Variant;
begin
    inherited;
  AKeyValue := VarToStrDef(Sender.Controller.FocusedRecord.Values[GRDDBCMys.Index], '');
  if (AKeyValue = '1') then
    AAllow := False
  else
    AAllow := True;
end;