WebBrowserでJavaScriptのイベントを取得するには

解決

しし丸 2004-12-02 00:16:04 No: 11984

WebBrowserでＨＴＭＬ表示し、
ページ内のJavascriptでwindow.closeを実行すると、
WebBrowserが見えなくなります。

Window.closeを実行したときにフォームを閉じたいのですが、
どのようにするとイベントを取得できますか？

お願いします。

TtPIPICH 2004-12-03 01:02:34 No: 11985

アプリケーションイベントのonMessageで
if (Msg.hwnd=ブラウザ.Handle) and (Msg.message=WM_CLOSE) then
begin
フォーム.close;
end;
とすると、何故かエラーが出るようです。
調べておきます。

TtPIPICH 2004-12-03 01:12:21 No: 11986

よくかんがえるとフォームを閉じるならブラウザは閉じなくて良いんですね。
TApplicationEventsを配置してonMessageに
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.hwnd=ブラウザの名前.Handle) and (Msg.message=wm_close) then
begin
ブラウザのあるフォーム名前.Close;
handled:=true;
end;
end;
でできました。

しし丸 2004-12-06 11:59:11 No: 11987

上記のソースコードでフォームを閉じることができました。
ありがとうございました。

しし丸 2004-12-06 12:00:51 No: 11988

解決のチェックを入れ忘れてしまいました。