代码实现不同的子节点图标效果。
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.
本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 无用评论 打赏 举报
悬赏问题
- ¥15 使用C#,asp.net读取Excel文件并保存到Oracle数据库
- ¥15 C# datagridview 单元格显示进度及值
- ¥15 thinkphp6配合social login单点登录问题
- ¥15 HFSS 中的 H 场图与 MATLAB 中绘制的 B1 场 部分对应不上
- ¥15 如何在scanpy上做差异基因和通路富集?
- ¥20 关于#硬件工程#的问题,请各位专家解答!
- ¥15 关于#matlab#的问题:期望的系统闭环传递函数为G(s)=wn^2/s^2+2¢wn+wn^2阻尼系数¢=0.707,使系统具有较小的超调量
- ¥15 FLUENT如何实现在堆积颗粒的上表面加载高斯热源
- ¥30 截图中的mathematics程序转换成matlab
- ¥15 动力学代码报错,维度不匹配