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