cxGrid 鎖定一行，讓該行數據不能編輯

在使用cxGrid時，由於設置了所有單元格都能編輯，

但在特定的情況下，讓某些行，根據一些列值條件，讓該行整行鎖定，不能編輯。

研究了很久，在DevExpress官網上找到了相關的資料，因此，分享給大家。

Dev官網的列子是這樣的

// DISABLE A ROW  整行禁止編輯
procedure TForm1.cxGrid1DBTableView1Editing(Sender: TcxCustomGridTableView;
  AItem: TcxCustomGridTableItem; var AAllow: Boolean);
var
  AKeyValue : Variant;
begin
  AKeyValue := Sender.DataController.GetRecordId(Sender.Controller.FocusedRecordIndex);
  if (AKeyValue = '1351') or (AKeyValue = '1356') or (AKeyValue = '1384') then
    AAllow := False;
end;

 

// MAKING A ROW READ ONLY   讓一行只讀
procedure TForm1.cxGrid1DBTableView1InitEdit(
  Sender: TcxCustomGridTableView; AItem: TcxCustomGridTableItem;
  AEdit: TcxCustomEdit);
var
  AKeyValue : Variant;
begin
{  AKeyValue := Sender.DataController.GetRecordId(Sender.Controller.FocusedRecordIndex);
  if (AKeyValue = '1351') or (AKeyValue = '1356') or (AKeyValue = '1384') then
    AEdit.ActiveProperties.ReadOnly := True;}
end;

 

// MAKING A ROW LOOK LIKE DISABLED   讓一行看起來禁止了
procedure TForm1.cxGrid1DBTableView1StylesGetContentStyle(
  Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
  AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
var
  AKeyValue : Variant;
begin
  AKeyValue := Sender.DataController.GetRecordId(ARecord.RecordIndex);
  if (AKeyValue = '1351') or (AKeyValue = '1356') or (AKeyValue = '1384') then
    AStyle := cxDisableStyle;
end;

在實際使用中，若要根據某列的值，控制該行是否可編輯，代碼如下：

procedure TForm1.cxGrid1DBTableView1Editing(Sender: TcxCustomGridTableView;

    AItem: TcxCustomGridTableItem; var AAllow: Boolean);
begin

　//cxGrid1DBTableView1CanEdit 為cxGrid中某列，判斷不為空時，設置該行不能編輯。
  if VarToStrDef(Sender.Controller.FocusedRecord.Values[cxGrid1DBTableView1CanEdit.Index], '') <> '' then
    AAllow := False;
end;