Webbrowserで途中で停止したときの解除方法は (ID:44651)

名前

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

本文

あさん、ありがとうございます。
基本的には前記のコードですが、実際にはイベントは下記のイベントを使っています。
 WebBrowser1NavigateComplete2
 WebBrowser1CommandStateChange
 WebBrowser1NewWindow2
 WebBrowser1TitleChange
 WebBrowser1BeforeNavigate2
すこし変わっているとすれば、閉じるボタンがあったら無効にする、
タブ削除で閉じるようにするため。
procedure TTabSheetEx.WebBrowser1DocumentComplete(Sender: TObject;const pDisp: IDispatch; var URL: OleVariant);
var
    window : IHTMLWindow2 ;
    document :IHTMLDocument2;
    web : IWebBrowser      ;
begin//**Closeメソッドの無効化
    try
        web:= pDisp as Iwebbrowser;
        document := web.document  as IHTMLDocument2;
        window := IHTMLWindow2(Document.parentWindow);
        window.execScript('function close() {}','JavaScript' ) ;
    except end ;
end;

IETab.WebBrowser1.Navigate(EditURL.Text,vFlag);

ナビゲートの後はイベントコードまかせで特別な処理はしていないつもりですが。
ただ実際にはNavigateはマルチスレッドで処理しています。（これは悪影響しませんか）

ApplicationEvents1: TApplicationEvents;
>OnExceptionでとらえることもできるでしょう
は、実際にはどのように書けばいいのでしょうか。やってみたいのですが。
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  case Msg.message of

end;
end;

できましたらお手数ですが、よろしくお願いします。

←解決時は質問者本人がここをチェックしてください。

戻る