描述

下面的示例将新项添加到Treeview控件中所选的项的子项目列表中。

新项将首先添加到子项目列表中。新项的标题为：“ New Item”。TBitmap对象将附加到新项上。

代码

 procedure TForm1.Button1Click(Sender: TObject);
var
   MyBitMap : TBitmap;
   node : TTreeNode;
begin
   MyBitMap := TBitmap.Create;
   MyBitMap.LoadFromFile('littleB.bmp');
   TreeView1.Items.BeginUpdate;
   node:= TreeView1.Items.AddChildObjectFirst(
    TreeView1.Selected, 'New Item', MyBitMap);
//   node.ImageIndex:= -1;
   TreeView1.Items.EndUpdate;
end