TreeView父节点的默认状态

Question

  
   怎样让TreeView的每个父节点默认状态都是展开的。   谢谢了！

Answer 1

for i:=0 to TreeView.Items.Count do
begin
  if Node.Parent=nil then 
    Node.Expanded:=true;
end;

Answer 2

  voyan 谢谢你的热心，你说的我试过，不行的下面是我的代码  Query:= TADOQuery.Create(self);
  with Query do
  begin
    Connection:= ADOConnection1;
    SQL.Text:= ' select * from 产品排产单 where 排产状态 in (''审核中'',''更改中'') ';
    Open;
    TreeView1.Items.Clear;
    for I:= 1 to RecordCount do
    begin
      nod:= TreeView1.Items.Add(nil,FieldByName('排产单号').AsString);
      nod.ImageIndex:= 0;
      Nod.Expanded:=true;
      Childnod:= TreeView1.Items.AddChild(tnod,FieldByName('产品编号').AsString+' ¡ú'+
          FieldByName('订货数量').AsString);
      Childnod.ImageIndex:= 2;
      Childnod.SelectedIndex:= 1;
      Next;
    end;
  end;

Answer 3

Query:= TADOQuery.Create(self);
  with Query do
  begin
    Connection:= ADOConnection1;
    SQL.Text:=  ' select * from 产品排产单 where 排产状态 in ( ' '审核中 ' ', ' '更改中 ' ')  ';
    Open;
    TreeView1.Items.Clear;
    for I:= 1 to RecordCount do
    begin
      nod:= TreeView1.Items.Add(nil,FieldByName( '排产单号 ').AsString);
      nod.ImageIndex:= 0;
      
      Childnod:= TreeView1.Items.AddChild(tnod,FieldByName( '产品编号 ').AsString+ ' ¡ú '+
          FieldByName( '订货数量 ').AsString);
      Childnod.ImageIndex:= 2;
      Childnod.SelectedIndex:= 1;
      Next;
    end;
  end;
  Nod.Expanded:=true;

Answer 4

用 Node.Expand(true);procedure Expand(Recurse: Boolean);

Answer 5

for i:=0 to TreeView.Items.Count-1 do
begin
  if Node.HasChildren then 
    Node.Expanded:=true;
end;

Answer 6

楼主加载树结点的方法是否不对？
 nod:= TreeView1.Items.Add(nil,FieldByName( '排产单号 ').AsString); 
 Childnod:= TreeView1.Items.AddChild(tnod,FieldByName( '产品编号 ').AsString+ ' ¡ú '+ 
          FieldByName( '订货数量 ').AsString); tnod这个不明白

Answer 7

  
  谢谢各位
  问题我已经解决了，将Nod.Expanded:=true;放到next之前就可以了  再次谢谢！