delphi 自动填表问题 急在线等

Question

比如一个表单 有一个下拉框<select name="test" onchange='change(this.value)'>
<option value=0>0</select>
<option value=1>1</select>
....
</select><div ID='select'></div>当test 选择 选项是  通过onchange 会往下面 写入一个  select2我用delphi 想自动 选择 但是 这个onchange是如何出发的？？比如
tmpselect:=(doc.all.item('test',0) as IHTMLSelectElement);
tmpselect.value:='1';test 是自动选择 1了 但是 change时间 没有执行，所以 下面select2出不来，怎么办

Answer 1

你的写法不对。这样写就可以了： WebBrowser1.OleObject.document.all.item('CookieDate',0).selectedIndex:=1;//选择第2项
 WebBrowser1.OleObject.document.all.item('CookieDate',0).fireEvent('onchange');//强行触发事件，其实这句要不要都行。别忘了结贴给分，虽然简单但代码很精焊。

Answer 2

这个方法确实可以，但是有一个问题 item('CookieDate',0) 第一个参数 我直接写 字符串就没有问题，但是我用字符串变量就有问题 
比如  
str:='test';
WebBrowser1.OleObject.document.all.item(str,0).selectedIndex:=1这样就不可以必须
WebBrowser1.OleObject.document.all.item('test',0).selectedIndex:=1这样如何解决呀

Answer 3

http://topic.csdn.net/u/20090324/12/f8de8636-b49c-412a-8742-9839cbef24a6.html?seed=764279263 同样的问题，请帮忙看看