delphi TCXTreelist 通过代码控制行的可编辑性

procedure TfrmSetOutPzTradeDeptPerson.grdTradeClientEditing(Sender: TObject;

AColumn: TcxTreeListColumn; var Allow: Boolean);

begin

if not Assigned(grdTradeClient.FocusedNode) then Exit;

Allow := grdTradeClient.FocusedNode.Level = 1;

end;