首页 > 代码库 > ListView返回选中的多项目

ListView返回选中的多项目

ListView返回选中的多项目
 
 
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
 


来自为知笔记(Wiz)