AddChildObjectFirst使用实例
2021-08-13
新闻来源:网淘巴
围观:945
''
下面的示例将一个新项目添加到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.EndUpdate ( fr | de | ja )
本文链接:https://www.wtao8.com/post/152.html 转载需授权!