掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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だけどー。 こんな感じでどうでしょ。 あとは、もう目の前の箱で調べてくれよなっ。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.