关于treeview控件

Question

如何通过编程来显示它里面每一子项的内容

Answer 1

procedure yourviewtree;
var
    FirstNode: TTreeNode;
begin
    FirstNode := TreeView1.Items.Add(TreeView1.Items.GetFirstNode,'全部');
    AdoQuery1.Close;
    AdoQuery1.SQL.Text := 'select * from tablename order by ID';
    AdoQuery1.Open;
    AdoQuery1.First;
    while not AdoQuery1.Eof do
    begin
        TreeView1.Items.AddChild(FirstNode,AdoQuery1.FieldByName('ID').AsString);
        AdoQuery1.Next;
    end;
end;

Answer 2

要从指定节点开始遍历所有子节点procedure TForm1.dispchildtreenode(tempnode:TTreeNode);
var  i : Integer;
begin
     For i := 0 To tempnode.count-1 do begin
          if tempnode.Item[i].getFirstChild <> nil then
              dispchildtreenode(tempnode.item[i]);
          showmessage(Tempnode.Item[i].Text);
     end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
     dispchildtreenode(Treeview1.Selected);
end;

Answer 3

for i := TreeView1.Items.Count - 1 Downto 0 do
        TreeView1.Items.Item[I].Expanded := True;