將值添加到TShellListview列

Question

我在拉撒路有一個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的圖像：

Answer 1

即使制作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;