HTMLのボタンをクリック (ID:38464)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 procedure TForm1.FormCreate(Sender: TObject); begin WebBrowser1.Navigate('http://www.google.com/webhp?hl=ja'); end; procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); var Doc3: IHTMLDocument3; iInputElement: IHTMLInputElement; begin Doc3:=WebBrowser1.Document as IHTMLDocument3; iInputElement := Doc3.getElementById('q') as IHTMLInputElement; iInputElement.value:='innerHTML delphi'; end; procedure TForm1.Button1Click(Sender: TObject); var Doc3: IHTMLDocument3; iInputBoxElement: IHTMLInputElement; begin Doc3:=WebBrowser1.Document as IHTMLDocument3; iInputBoxElement := Doc3.getElementById('btnG') as IHTMLInputElement; iInputBoxElement.form.submit; end; googleだけどー。 こんな感じでどうでしょ。 あとは、もう目の前の箱で調べてくれよなっ。