在form2中对form1的Treeview的节点设imageindex不好使，imagelist和treeview都是放在form1中的，有什么办法呢？

Question

procedure TForm2.Button1Click(Sender: TObject);
var
node:Ttreenode;
node1:Ttreenode;
begin
  node1:=form1.TreeView1.Items.Add(node,'ddd');
  form1.TreeView1.StateImages:=form1.ImageList1;
  form1.TreeView1.Images:=form1.ImageList1;
  form1.TreeView1.Items[0].ImageIndex:=0;
end;

Answer 1

这一段代码又一个很明显的错误，node和node1没有创建就被使用。
试一试
begin
  node := Ttreenode.Create(Form1.TreeView1.Items;
  node1 := Ttreenode.Create(Form1.TreeView1.Items);
  node1:=form1.TreeView1.Items.Add(node,'ddd');
  form1.TreeView1.StateImages:=form1.ImageList1;
  form1.TreeView1.Images:=form1.ImageList1;
  form1.TreeView1.Items[0].ImageIndex:=0;
end;

Answer 2

不好意识笔误，应该是：
node := TTreeNode.Create(Form1.TreeView1.Items);

Answer 3

不好意思，由于第一次来CSDN，参加问题讨论时忘了吧“有人参与讨论这个问题，请用EMail通知我”这个复选匡去掉，现在只好在发一条垃圾信息，来去掉这个副选矿，以挽救我的邮箱

Answer 4

怎么看了眼晕啊,
程序怎么会写成这个样子
这个问题好象也太简单了吧
zkfly 你那个node1 也要这么来一下吗
node1 := Ttreenode.Create(Form1.TreeView1.Items);
???  TreeView1.Items.Add(node, 'NAME')本身就返回一个TTreeNode的对象.
  

Answer 5

iforever,说的对，这是花眼。呵呵