delphi - 将图标添加到 TListView

Question

我正在尝试在 TListView 中放置一个图标当某些行显示时，我有 TImageList与加载的图像，但它没有连接。我的代码是这样的

with sListView2 do
begin
  test := sListView2.Items.Add;
  test.Caption := sListbox2.Items[i];
  test.SubItems.Add(test');
  test.ImageIndex(ImageList1.AddIcon(1));
end;

有人能告诉我我做错了什么吗？

Answer 1

TImageList.ImageIndex是一个整数，你需要正确设置它，并调用AddIcon你需要提供一个 TIcon .

如果您已经在 TImageList 中拥有它，只需设置 TListView.ImageIndex到该图像的正确索引:

// Assign an image from the ImageList by index
test.ImageIndex := 1;  // The second image in the ImageList

或者，如果您在 TImageList 中没有现有图标并且需要添加一个，添加它并存储来自 AddIcon 的返回值:

// Create a new TIcon, load an icon from a disk file, and
// add it to the ImageList, and set the TListView.ImageIndex
// to the new icon's index.
Ico := TIcon.Create;
try
  Ico.LoadFromFile(SomeIconFileName);
  test.ImageIndex := ImageList1.Add(Ico);
finally
  Ico.Free;
end;

顺便说一句，您可以稍微简化您的代码(但要小心 with !):

with sListView2.Items.Add do
begin
  Caption := sListbox2.Items[i];
  SubItems.Add(test');
  ImageIndex := 1;
end;