怎么改变Treeview中的图标? OnClick事件Click获取Node.text 批量处理及实现TreeView结点拖拽的实例

//这个过程根据你的要求选择图标
procedure TForm1.TreeView1GetImageIndex(Sender: TObject; Node: TTreeNode);
begin
  if Node.HasChildren then
      if Node.Expanded then
          Node.ImageIndex := 3   //节点有子节点时打开的图标
      else
          Node.ImageIndex := 0   //节点有子节点时收起来的图标
  else Node.ImageIndex := 1;     //节点没有子节点时图标
end;
//这个过程显示选择的图标 阅读全文 »