delphi - ListView 子项图像

我是否在这里遗漏了一些明显的东西，我找不到将 ImageIndex 分配给 TListView 的子项的方法。

我在 vsReportMode 中设置了包含 2 列的 Listview，我可以轻松地将 ImageIndex 分配给第一列项目，例如:

ListView1.Items[0].ImageIndex := 0;
ListView1.Items[1].ImageIndex := 1;
ListView1.Items[2].ImageIndex := 2;

我以为我可以为它的 SubItems 分配一个 ImageIndex，就像这样(这显然不起作用，因为 SubItems 似乎不存在该属性)

ListView1.Items[0].SubItems[0].ImageIndex := 0;
ListView1.Items[1].SubItems[0].ImageIndex := 1;
ListView1.Items[2].SubItems[0].ImageIndex := 2;

我是再次混淆自己还是子项目图像没有这样的属性？

最佳答案

使用 SubItemImages 代替:

var
  LI: TListItem;
  i: Integer;
begin
  ListView1.ViewStyle := vsReport;
  for i := 0 to 1 do
    with ListView1.Columns.Add do
      Caption := 'Column ' + IntToStr(i);

  for i := 0 to ImageList1.Count - 1 do
  begin
    LI := ListView1.Items.Add;
    LI.Caption := Format('Item %d', [i]);
    LI.ImageIndex := i;
    LI.SubItems.Add(Format('SubItem %d', [i]));
    LI.SubItemImages[0] := i; // SubItems[ColumnIndex] := ImageIndex;
  end;
end;

这导致

关于delphi - ListView 子项图像，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/8498473/

imageIndex

delphi - ListView 子项图像