TreeView的简单问题，还望指教！

Question

TreeView如何才能实现只展开跟目录下的一级子目录，另外是否可以在item的文字左边加个图标，还望指教，谢谢！

Answer 1

1.只展开一层 treeview1.items[0].expanded:=ture
2.加个images,根据属性自己设置一下！ 很简单的！

Answer 2

加图标当然可以了，把 TREEVIEW和 IMAGELIST关联，然后指定 ITEM的 IMAGEINDEX就OK了只展开一级子目录是什么意思？
全部展开？

Answer 3

只展开一级子目录的意思是只展开一层，而不是象TreeView1.FullExpand把所有层都展开，另外Ftreeview1.items[0].expanded:=ture好象不对！

Answer 4

procedure Tform1.Button1Click(Sender: TObject);
var i: integer;
begin
   for i:= 0 to self.Ftreeview1.Items.Count - 1 do
   begin
      if self.Ftreeview1.Items.Item[i].Level = 0 then
      begin
         self.Ftreeview1.Items.Item[i].Expanded:= true;
      end;
   end;
end;