814123 2018-03-19 14:14 采纳率: 50%
浏览 1540
已采纳

delphi listview添加图标的问题?

准备了2个图标在Listview里显示,判断条件来添加不同的图标。
str1,str2都是Tstringlist。
For循环对比str1与str2的内容,如果相同listview.item.add.imageindex := 0;
否则listview.item.add.imageindex := 1;
搞了一个晚上了没有解决,来这里求助老师?

我的代码

  for i := 0 to sList.Count - 1 do begin
    if sList[i] = '' then begin
      ListView1.Items.Add.Caption := ''//添加空行
    end else begin
      for j := 0 to MainForm.PopupMenu1.Items.Count - 1 do begin
        if MainForm.PopupMenu1.Items[j].Caption = sList[i] then begin
          with ListView1.Items.Add do begin
            Caption := sList[i];
            ImageIndex := 1;
          end;
          Break;
        end else begin
          with ListView1.Items.Add do begin
            Caption := sList[i];
            ImageIndex := 0;
          end;
        end;
      end;
    end;
  end; 
  • 写回答

2条回答 默认 最新

  • 堕落恶魔_Delphi 2018-03-21 08:37
    关注

    你的listview是出于什么模式, 也就是ViewStyle的设置
    对于vsIcon来说, 需要listview.**LargeImages**关联到你的图标imagelist, 才可以使imageindex有效显示图标
    而对于另外3个模式(vsSmallIcon, vsList, vsReport), 需要使用listview.**SmallImages**才可以使imageindex有效并显示图标

    如果你确定可以正常的显示图标了, 但是不能实现按照逻辑切换, 那么就需要跟踪一下
    在 for j := 0 to MainForm.PopupMenu1.Items.Count - 1 do begin 这句下断点, 看一下你的处理逻辑是否正常

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(1条)

报告相同问题?

悬赏问题

  • ¥15 BP神经网络控制倒立摆
  • ¥20 要这个数学建模编程的代码 并且能完整允许出来结果 完整的过程和数据的结果
  • ¥15 html5+css和javascript有人可以帮吗?图片要怎么插入代码里面啊
  • ¥30 Unity接入微信SDK 无法开启摄像头
  • ¥20 有偿 写代码 要用特定的软件anaconda 里的jvpyter 用python3写
  • ¥20 cad图纸,chx-3六轴码垛机器人
  • ¥15 移动摄像头专网需要解vlan
  • ¥20 access多表提取相同字段数据并合并
  • ¥20 基于MSP430f5529的MPU6050驱动,求出欧拉角
  • ¥20 Java-Oj-桌布的计算