delphi - 将值添加到TShellListview列

我在拉撒路有一个TShellListView，里面有一些图片。我还做了2列，我想在其中存储有关图片的一些数据。但是我不知道如何将数据插入我创建的列（Column_1和Column_2）。

码：

ShelLListView1.Column[1].Visible:=false;
 ShelLListView1.Column[2].Visible:=false;

 ShellListView1.Columns.Add;
 ShellListView1.Column[ShellListView1.ColumnCount - 1].Caption:='Column_1';
 ShellListView1.Columns.Add;
 ShellListView1.Column[ShellListView1.ColumnCount - 1].Caption:='Column_2';


 ShelLListView1.Column[0].AutoSize:=true;
 ShellListView1.Root:=folderPath;

关于TShellListView的图像：

最佳答案

即使制作TShellListView类的子类会更好，但无论如何，您需要在此列表视图中添加子项：

var
  I: Integer;
begin
  ...
  for I := 0 to ShellListView1.Items.Count - 1 do
  begin
    ShellListView1.Items[I].SubItems.Add('Column 1, Item: ' + IntToStr(I));
    ShellListView1.Items[I].SubItems.Add('Column 2, Item: ' + IntToStr(I));
  end;
end;