TreeView父节点的默认状态,该怎么解决

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

  谢谢了！

[解决办法]

Delphi(Pascal) code

for i:=0 to TreeView.Items.Count dobegin  if Node.Parent=nil then     Node.Expanded:=true;end;
[解决办法]
Delphi(Pascal) code
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;