下面的示例将一个新项目添加到the tree view 控件中所选项目的子项目列表中。新项目首先添加到子项目列表中。新项目由文本“new item”标识。TBitmap对象附加到the new item。

Code

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;

翻译由网淘巴完成，转载必须标明出处：AddChildObjectFirst使用实例_delphi_网淘巴 (wtao8.com)

• Vcl.ComCtrls.TTreeNodes.AddChildObjectFirst ( fr | de | ja )

• Vcl.ComCtrls.TTreeNodes.BeginUpdate ( fr | de | ja )

• Vcl.ComCtrls.TTreeNodes.EndUpdate ( fr | de | ja )

天猫隐藏优惠券

网淘吧

部分文章来自各大搜索引擎，如有侵权，请与我联系删除。

打赏

微信扫一扫，打赏作者吧～