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;
TcxTreeList显示复选框
最新推荐文章于 2020-08-07 16:44:14 发布