返回ListBox选中的多项目
![](http://images0.cnblogs.com/blog/300447/201407/291843390087956.png)
//返回ListBox选中的多项目
procedure TForm1.Button2Click(Sender:
TObject);
var
i:Integer;
s:string;
begin
for i:=0 to
ListBox1.Items.Count-1
do
if ListBox1.Selected[i] then
s:=s+ListBox1.Items[i]+#13#10;
showmessage(s);
end;