procedure TForm1.Button1Click(Sender: TObject); var s : string; begin combobox1.Clear; s := '01'; combobox1.Items.AddObject('北京',TObject(s)); s := '02'; combobox1.Items.AddObject('天津',TObject(s)); s := '03'; combobox1.Items.AddObject('上海',TObject(s)); end; procedure TForm1.ComboBox1Change(Sender: TObject); begin edit1.Text :...[ 查看全文 ]
代码如下: script type="text/javascript" //取得传值的函数 function QueryString(qs) { var s = location.href.replace("?","?&").split("&"); var re = ""; for(i=1;is.length;i++) (s[i].indexOf(qs+"=")...[ 查看全文 ]