delphi cxDBTreeList：最简单的节点图标添加方法
先在窗体上放ImageList关联到cxDBTreeList，在cxDBTreeList的GetNodeImageIndex事件中写如下：
procedure cxDBTreeList1GetNodeImageIndex(Sender:
TcxCustomTreeList; ANode: TcxTreeListNode; AIndexType:
TcxTreeListImageIndexType; var AIndex: TImageIndex);
var
i :Integer;
begin
//给树结点加上图标
for i := 0 to ANode.ValueCount do
begin
if ANode.Level = 0 then
begin
ANode.ImageIndex := 0;
end
else
if ANode.Level = 1 then
begin
ANode.ImageIndex := 2;
end
else
if ANode.Level = 2 then
begin
ANode.ImageIndex := 1;
end;
end;
end;
////=====================
cxDBTreeList1.fullexpand; //cxdbtreelist1自动展开节点。
cxdbtreelist1自动折叠 : cxDBTreeList1.FullCollapse;
//=====================
procedure Tfrmjiankongxinxi.cxDBTreeList1DblClick(Sender: TObject);
var i,sn:Integer;
begin
for i:=0 to cxDBTreeList1.SelectionCount-1 do
begin
//ShowMessage(cxDBTreeList1.Selections[i].Values[i]);
if cxDBTreeList1.FocusedNode.Level=1 then //判断是不是子节点，1是子节点，0是父节点
ShowMessage(cxDBTreeList1.Selections[i].Values[i]) //取节点名
else
end;
end;
https://www.cnblogs.com/windson/p/12505100.html
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.14113807678223 seconds