掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
タブ式ブラウザーでポップアップの［閉じる］ボタンを使うとエラー。回避方法は？ (ID:44973)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
前に同じようなことを回答したような気がしていましたが、やっぱりあり ましたね。 私も自分専用のブラウザを作成しており、この問題は、次のようにして対応しています。 （定義部） procedure OnMyMsg1(var Msg: TMessage); message WM_MyMsg1; procedure TForm1.Browser1WindowClosing(Sender: TObject; IsChildWindow: WordBool; var Cancel: WordBool); begin Cancel := True; // 勝手に閉じられそうになったら閉じるのをやめる。 PostMessage(Form1.Handle, WM_MyMsg1, i, 0); // 処理を抜けた後、アクティブタブを閉じるよう、メッセージを投げておく。 // なお、iは、WindowClosingを起こしたWebBrowserに対応するTabControlのインデックス。 end; // ↓メッセージを処理する部分。 procedure TForm1.OnMyMsg1(var Msg: TMessage); begin CloseTab(Msg.WParam); // CloseTab()という関数は、指定されたタブを閉じる自作関数。 end; 実際にやっていることは、Harryさんが指摘されているとおりです。 ソースが汚くて申し訳ありませんが、雰囲気は感じとっていただけるのでは ないかと思います。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.