【TWebBrowserコンポーネント】

こんにちは。Ｎです。

自作アプリケーション内にブラウザを組み込むために
TWebBrowserを使用しています。

TWebBrowser以外にも色々便利なコンポーネントが
あるんですが、どうも使い方が分からなかったりするので、
長いことTWebBrowserを使っています。

過去の資産を利用するのにもTWebBrowserは便利で、
分からないことでも、色々検索すると見つかります。

インターネットって便利ですね。

僕の使用しているのはDelphi2010ですが、
このバージョンについているTWebBrowserには
OnNewWindow3イベントがありませんでした。

なので一端、TWebBrowserコンポーネントを削除して
新たにタイプライブラリの取り込みをして、
TWebBrowserコンポーネントをインストールしました。

余計なコンポーネントもついてきましたが。
何か起動時にエラーが出るというトラブルに見舞われました。

今もって奮闘中。


OnNewWindow3イベントがないために余計なギミックを
使用してその場しのぎをしていたんですが、これで、
余計なことをせずに済むはず。

リンクを別窓で表示したいときに、一端TWebBrowserを
動的に作って、そこで一端ppDispを設定した後、
OnNavigate2イベントでURLを取得するという
まどろっこしいやり方をしておりました。

OnNewEvent3には既にURLが引数として与えられているので
こんなことはしなくて良いということですね。


エラー処理が終わればってことですけど。