treeview动态建立的问题？多谢！！！

Question

var
  gNode: TTreeNode;
begin
  with Tree.Items do
  begin
    Clear; { remove any existing nodes }
    maintree:=Add(nil, 'RootTreeNode1'); { Add a root node }
    maintree.ImageIndex:=1;
    gNode:=addchild(maintree,'ll1');
    gNode.ImageIndex:=2;
    gNode:=addchild(maintree,'lll2');
    gNode.ImageIndex:=3;
 end;
end;

Answer 1

放一个ImageList，选择三个图标
Tree.Images := ImageList;
with Tree.Items do
begin
  Clear; { remove any existing nodes }
  maintree:=Add(nil, 'RootTreeNode1'); { Add a root node }
  MailTree.ImageIndex := 0;
  MailTree.SelectedIndex := 0;
  NodeCC := addchild(maintree,'ll1');
  NodeCC.ImageIndex := 1;
  NodeCC.SelectedIndex := 1;
  NodeCC := addchild(maintree,'lll2');
  NodeCC.ImageIndex := 2;
  NodeCC.SelectedIndex := 2;
end;