这些节点都是动态生成，再设置。

原理 还是 在前面显示图片 实现

procedure TForm1.FormCreate(Sender: TObject);
var
  pnode, node: TTreeNode;
begin
  with TreeView1.Items do begin
    node := Add(nil, 'Item1');       //  动态生成一个节点
    node.ImageIndex := 0;
    node.SelectedIndex := 0;
    CheckNode(node, true);            //  这里 在前面生成CHECKbox

 相关文件下载：

链接：https://pan.baidu.com/s/1BifaPiZz-7-d2VH50zwMaA
提取码：onja