代码实现不同的子节点图标效果。
3条回答 默认 最新
- threenewbee 2018-07-01 18:17关注
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ImgList, ComCtrls, XPMan; type TForm1 = class(TForm) TreeView1: TTreeView; ImageList1: TImageList; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var node1: TTreeNode; begin node1 := treeView1.Items.AddFirst(nil, '全部待办事宜'); node1.ImageIndex := 1; node1.SelectedIndex := 1; node1 := treeView1.Items.AddChildFirst(node1, '问问'); node1.ImageIndex := 1; node1.SelectedIndex := 1; node1 := treeView1.Items.AddChild(node1.Parent, '1114'); node1.ImageIndex := 1; node1.SelectedIndex := 1; node1 := treeView1.Items.AddChild(node1.Parent.Parent, '进度状态'); node1.ImageIndex := 1; node1.SelectedIndex := 1; node1 := treeView1.Items.AddChildFirst(node1, '未处理'); node1.ImageIndex := 0; node1.SelectedIndex := 0; node1 := treeView1.Items.AddChild(node1.Parent, '正在处理'); node1.ImageIndex := 0; node1.SelectedIndex := 0; node1 := treeView1.Items.AddChild(node1.Parent, '已完成'); node1.ImageIndex := 0; node1.SelectedIndex := 0; node1 := treeView1.Items.AddChild(node1.Parent.Parent, '更新时间'); node1.ImageIndex := 1; node1.SelectedIndex := 1; node1 := treeView1.Items.AddChildFirst(node1, '今天更新'); node1.ImageIndex := 0; node1.SelectedIndex := 0; end; end.
本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 无用评论 打赏 举报
悬赏问题
- ¥30 Matlab打开默认名称带有/的光谱数据
- ¥50 easyExcel模板 动态单元格合并列
- ¥15 res.rows如何取值使用
- ¥15 在odoo17开发环境中,怎么实现库存管理系统,或独立模块设计与AGV小车对接?开发方面应如何设计和开发?请详细解释MES或WMS在与AGV小车对接时需完成的设计和开发
- ¥15 CSP算法实现EEG特征提取,哪一步错了?
- ¥15 游戏盾如何溯源服务器真实ip?需要30个字。后面的字是凑数的
- ¥15 vue3前端取消收藏的不会引用collectId
- ¥15 delphi7 HMAC_SHA256方式加密
- ¥15 关于#qt#的问题:我想实现qcustomplot完成坐标轴
- ¥15 下列c语言代码为何输出了多余的空格