Tcxtreelist动态控制列或行是否能够编辑

procedure Tfrmaaa.grd1Editing(Sender: TObject;
AColumn: TcxTreeListColumn; var Allow: Boolean);
begin
//在此控制是否能够编辑
//if not Assigned(grd1.FocusedNode) then Exit;
//Allow := grd1.FocusedNode.Level = 1;
end;