WebBrowserのNavigate処理を途中で完全に止めるには (ID:40341)

名前

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

本文

再現しました。
なんかジレンマ的なプログラムですね。
Free中にDocumentを呼び出すと親の終了時に子を作るみたいな動作になってるようです。（確信はないです）
なのでDocumentのコードを別のものに置き換えてください。
今回だとコメントアウトだけでOKです。

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser.Navigate('http://syarecowa.moo.jp/');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  //WebBrowser.Stop; //削除してもOK
  //WebBrowser.OnNavigateComplete2 := nil; //削除してもOK
  //WebBrowser.OnDocumentComplete := nil;  //削除してもOK
  WebBrowser.Free;
end;

procedure TForm1.WebBrowserNavigateComplete2(ASender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
var
  Rect: TRect;
begin
  //if WebBrowser.Document <> nil then begin           //削除
    Windows.GetClientRect(WebBrowser.Handle, Rect);
    (WebBrowser.Application as IOleObject).DoVerb(OLEIVERB_UIACTIVATE,
      nil, WebBrowser, 0, WebBrowser.Handle, Rect);
  //end;
end;

procedure TForm1.WebBrowserDocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  Rect: TRect;
begin
  //if WebBrowser.Document <> nil then begin            //削除
    Windows.GetClientRect(WebBrowser.Handle, Rect);
    (WebBrowser.Application as IOleObject).DoVerb(OLEIVERB_UIACTIVATE,
      nil, WebBrowser, 0, WebBrowser.Handle, Rect);
  //end;
end;

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

戻る