我正在尝试删除基于标题的列表视图项目,但我找不到解决方案,删除项目的唯一方法是使用索引:
listview1.Items.Delete (0);
谁能帮我通过标题删除项目?
您可以使用类似的东西,它尝试找到ListItem
与标题Item 2
,如果找到则删除它:
procedure TForm1.Button1Click(Sender: TObject);
var
LI: TListItem;
begin
LI := ListView1.FindCaption(0, 'Item 2', False, True, False);
if Assigned(LI) then
begin
ListView1.Selected := LI;
ListView1.DeleteSelected;
end;
end;
另一种不需要您首先选择该项目的替代方法是按其删除找到的项目Index
:
procedure TForm1.Button2Click(Sender: TObject);
var
LI: TListItem;
begin
LI := ListView1.FindCaption(0, 'Item 2', False, True, False);
if Assigned(LI) then
ListView1.Items.Delete(LI.Index);
end;
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)