ListBox如何实现多选，多选后被选中项颜色变深，有例子最好，谢谢了
如题

[解决办法]

Delphi(Pascal) code

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]+',';   showmessage(s);end;