描述

下面的示例将新项添加到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