TcxTreeList显示复选框

var lvID:Integer; lvNode:TcxTreeListNode;begin  lvID:=-1;   //lstTree 为TcxTreeList 请自己拖控件  lstTree.Root.CheckGroupType:=ncgCheckGroup;  ///显示根复选框  lstTree.OptionsView.CheckGroups:=True;    //显示子复选框  lstTree.BeginUpdate;try with cdsRest do begin while not Eof do begin if lvID<>FieldByName('ID').AsInteger then begin lvID:=FieldByName('ID').AsInteger; lvNode:=lstTree.Add; lvNode.CheckGroupType:=ncgCheckGroup;//设置为复选框 with lvNode do begin //Caption:=FieldByName('Name').AsString; Values[0]:=FieldByName('Name').AsString; Values[1]:=lvID; with AddChild do begin  CheckGroupType:=ncgCheckGroup; //Caption:=FieldByName('ChildName').AsString; Values[0]:=FieldByName('ChildName').AsString; Values[1]:=FieldByName('ChildID').AsInteger; end; end; end else begin  with lvNode.AddChild do begin  CheckGroupType:=ncgCheckGroup; //Caption:=FieldByName('ChildName').AsString; Values[0]:=FieldByName('ChildName').AsString; Values[1]:=FieldByName('ChildID').AsInteger; end; end; Next; end; end; finally  lstTree.EndUpdate; end;end;