//返回ListBox选中的多项目 procedure TForm1.Button2Click(Sender: TObject);vari: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; http://www.myexception.
1,一行变色 <script> function trBg(){ var tab=document.getElementById("table"); var tr=tab.getElementsByTagName("tr"); ;i<tr.length;i++){ ==){ tr[i].style.backgroundColor="#fff"; tr[i].onmouseover=function(){ this.style.b