タブ式ブラウザーでポップアップの［閉じる］ボタンを使うとエラー。回避方法は？ (ID:44977)

名前

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

本文

全体像が分かるよう、貼っておきます。（実際にはエラーチェックや付随
する処理など、様々なことをやっています。ここで貼ったのは、肝の部分
を抽出したものです。）
なお、自分ではWM_Userを使っていましたが、実際には、ここの部分は
WM_Appの方を使う方がいいかもしれません。

uses
  …

const
  WM_MyMsg1 = WM_User + 1;

…

type
  TForm1 = class(TForm)
  private
    procedure OnMyMsg1(var Msg: TMessage);
      message WM_MyMsg1;
    procedure CloseTab(Index: Integer);
    procedure BrowserWindowClosing(Sender: TObject;
      IsChildWindow: WordBool; var Cancel: WordBool);
  end;

…

procedure TForm1.OnMyMsg1(var Msg: TMessage);
begin
  CloseTab(Msg.WParam, True);
end;

procedure TForm1.CloseTab(Index: Integer; RestoreLastIndex: Boolean);
var
  Browser: TWebBrowser;
begin
  Browser := TWebBrowser(TabControl1.Tabs.Objects[Index]);
  Browser.Free;
  TabControl1.Tabs.Delete(Index);
end;

procedure TForm1.BrowserWindowClosing(Sender: TObject;
  IsChildWindow: WordBool; var Cancel: WordBool);
var
  i: Integer;
begin
  Cancel := True;
  i := TabControl1.Tabs.IndexOfObject(Sender);
  PostMessage(Form1.Handle, WM_MyMsg1, i, 0);
end;

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

戻る