procedure TForm1.Button3Click(Sender:
TObject);
var
s: string;
I: Integer;
begin
for i := 0 to
listview1.items.count - 1
do
begin
if listview1.items[i].selected then
S:=s+listview1.items[i].caption
+#13#10;
end;
showmessage(s);
end;
http://bbs.csdn.net/topics/40221590
ListView返回选中的多项目,布布扣,bubuko.com
时间: 2024-08-03 02:40:19