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;