Question

delphi 对CXGrid的行操作

请问，如何让cxgrid行为只读，也就是无法编辑，不是某列无法修改，我要的是某行为不可编辑的状态。在右击菜单“修改”才可以编辑，请问代码怎么写？？？？

Answer 1

提供 DevExpress 官网对此问题提供的示例代码：

// 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;