AddChildObjectFirst使用实例

2021-08-13 新闻来源：网淘巴围观:1310

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

免责申明

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

打赏

标签 Delphi code examples

上一篇：ActnMgrBar 使用实例下一篇：TTreeNodes.BeginUpdate详细介绍

ADOQuery (Delphi)使用实例

此示例演示了使用 ADO 进行数据库连接。该示例假设在窗体上放置了一个 DBGrid。 Code procedure TForm2.FormCreate(Sender: TObject); c...
2021-08-13Delphi code examples
ActnMgrBar 使用实例

这个应用程序需要表单上已经有一个TPopupActionBar组件。应用程序创建一个action manager组件，并将一个图像列表分配给它的一些属性。然后，自定义弹出action bar 并将其a...
2021-08-13Delphi code examples
ActivePage实例代码

这个例子要求form上已经有一个TPageControl。另外，您必须通过右击并选择New Page将页面添加到TPageControl中。示例代码允许您通过选择ComboBox项来选择ActiveP...
2021-08-13Delphi code examples
ActiveControl (Delphi)实例

在窗体上放置一个TTimer对象，并在OnTimer事件中输入Timer1Timer。将其他控件放置在窗体上，并在运行时更改活动控件。下面的事件处理程序通过每100毫秒向右移动一个像素来响应计时器事件...
2021-08-12Delphi code examples