delphi - 如何更改 ListView 中的子项？

Question

我使用 Listview.items.item[X].caption 来更改列表框中的第一列，但现在我必须在运行时进一步更改。我看到的唯一方法是从列表框中获取项目作为 TListItem ，编辑它，添加它并更改位置，但这不适合它，因为我在 ListView 上有很多项目。

是否有更简单的方法来完成此操作，例如更改第一项的方法？

提前致谢。

Answer 1

试试这个

//Add a item

var
  ListItem : TListItem;
begin

  ListViewItem.Items.BeginUpdate;
try
    ListItem := ListViewItem.Items.Add;
    ListItem.Caption := 'First Column Value';
    ListItem.SubItems.Add('Second Column Value');
    ListItem.SubItems.Add('Third Column Value');
finally  
ListViewItem.Items.EndUpdate;
end;

end;

//Edit a Item

var
  ListItem : TListItem;
begin

  ListViewItem.Items.BeginUpdate;
try
    ListItem := Listview.items.item[X];
    ListItem.Caption := 'New first Column Value';
    ListItem.SubItems[0]:='New Second Column Value';
    ListItem.SubItems[1]:='New Third Column Value';
finally  
ListViewItem.Items.EndUpdate;
end;

end;