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;