在自動(dòng)填寫(xiě)表單元素時(shí)，常常會(huì)遇到select 無(wú)option 的情況，這就需求webbrowser 自動(dòng)添加option

方法有二

其一是用ole 對(duì)象

var
  myitem:Olevariant;
  Op:OleVariant;// 對(duì)應(yīng)option 元素
begin
  myitem:=WebBrowser1.document;
  op:=myitem.createElement('option');
  op.setAttribute('value','xxx');
  op.innerHTML:='可顯示標(biāo)題';
  myitem.getElementById('SelectId').appendChild(op);

end;

其二是用js腳本

  jsStr:='var obj = document.getElementById("SelectId");';
  jsStr:=jsStr+'obj.options.add(new Option("'+'標(biāo)題'+'","'+'值'+'"));';
 //

  try
    (aWebBrowser.Document as IHTMLDocument2).parentWindow.execScript(jsStr,'javascript');
  except
  end;

調(diào)用完后，就可用

myitem.getElementById(SelectId).value:='你硬性賦的值';

編后：相信做自動(dòng)注冊(cè)的網(wǎng)友們一定會(huì)遇到過(guò)這樣的問(wèn)題，這樣就可以跳過(guò)select 的點(diǎn)擊事件，自動(dòng)賦值了。