814123 2018-07-01 09:16 采纳率: 33.3%
浏览 984
已采纳

delphi treeview的子节点图标?

图片说明
代码实现不同的子节点图标效果。

  • 写回答

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.
    
    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(2条)

报告相同问题?

悬赏问题

  • ¥15 咨询一下有关于王者荣耀赢藏战绩
  • ¥100 求购一套带接口实现实习自动签到打卡
  • ¥50 MacOS 使用虚拟机安装k8s
  • ¥500 亚马逊 COOKIE我如何才能实现 登录一个亚马逊账户 下发新 COOKIE ..我使用下发新COOKIE 导入ADS 指纹浏览器登录,我把账户密码 修改过后,原来下发新COOKIE 不会失效的方式
  • ¥20 玩游戏gpu和cpu利用率特别低,玩游戏卡顿
  • ¥25 oracle中的正则匹配
  • ¥15 关于#vscode#的问题:把软件卸载不会再出现蓝屏
  • ¥15 vimplus出现的错误
  • ¥15 usb无线网卡转typec口
  • ¥30 怎么使用AVL fire ESE软件自带的优化模式来优化设计Soot和NOx?