将值添加到列 TShellListview

Question

我在 Lazarus 中有一个 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 class 的子项class 会更好，但在任何情况下您都需要向此列表视图添加子项：

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;

将值添加到列 TShellListview

Add Value to Column TShellListview

delphi

lazarus