TcxTreeList显示复选框

最新推荐文章于 2021-01-12 04:39:02 发布

Blessed_Chuan

最新推荐文章于 2021-01-12 04:39:02 发布

阅读量3.5k

点赞数

分类专栏： CxTreeList delphi DevExpress 文章标签： Delphi DevExpress XE7 CxTreeList

本文链接：https://blog.csdn.net/gykthh/article/details/44818553

版权

delphi 同时被 3 个专栏收录

11 篇文章 0 订阅

订阅专栏

CxTreeList

1 篇文章 0 订阅

订阅专栏

DevExpress

1 篇文章 0 订阅

订阅专栏

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;