網頁內有以下內碼
[SCRIPT language=javascript type=text/javascript]
[!--function __doPostBack(eventTarget, eventArgument) {var theform;if (window.navigator.appName.toLowerCase().indexOf("microsoft") ]
[ -1) {theform = document.mdcsPage;}else {theform = document.forms["mdcsPage"];}theform.__EVENTTARGET.value = eventTarget.split("$").join][(":");theform.__EVENTARGUMENT.value = eventArgument;theform.submit();}// --]
[/SCRIPT]
[td align="right"]
[!-- Begin page list box --]
[font face="verdana,arial,helvetica" size="1" color="#999999"][b id="MdcsRatingWatchListsGrid1_goToPg"]GO TO PAGE:[/b]
[SELECT language=javascript id=MdcsRatingWatchListsGrid1_pageList "__doPostBack('MdcsRatingWatchListsGrid1$pageList','')" size=1] [name=MdcsRatingWatchListsGrid1:pageList]
[option selected="selected" value="1"]1[/option]
[option value="2"]2[/option]
[/select]
[/font]
[!-- End page list box --]
[/td]
我想問的是要如何觸發javascript 的function跳到第二選項
我有試著這樣寫，不過沒啥用
procedure TForm1.Button2Click(Sender: TObject);
var
Doc: IHTMLDocument2;
HTMLWindow: IHTMLWindow2;
JSFn: string;
begin
Doc := WebBrowser1.Document as IHTMLDocument2;
if not Assigned(Doc) then
Exit;
HTMLWindow := Doc.parentWindow;
if not Assigned(HTMLWindow) then
Exit;
JSFn := '__doPostBack(''value'',''2'')';
HTMLWindow.execScript(JSFn,'JavaScript');
end;
請各位大大幫幫忙

已解決