掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
タブ式ブラウザーでポップアップの［閉じる］ボタンを使うとエラー。回避方法は？ (ID:44976)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
あさん、すみません教えてください。 （定義部） TForm1側に書くでいいですか。 procedure OnMyMsg1(var Msg: TMessage); このような書き方がわかりませんがどこに書いたらいいのでしょうか message WM_MyMsg1; これはTIETabSheetクラスに書くのですね。 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; iはアクティブページのindexでいいですか。 CloseTab関数が理解できませんでした。 どのような内容がかかれているのでしょうか？ // ↓メッセージを処理する部分。 procedure TForm1.OnMyMsg1(var Msg: TMessage); begin CloseTab(Msg.WParam); // CloseTab()という関数は、指定されたタブを閉じる自作関数。 end; これは、typeのまえにconstで書けばいいのですか。 【定義】 WM_MyMsg1 = WM_User + 1; すみません、レベルが低くて。 動かせませんでした。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.