么意思博客

默认在webbrowser打开新窗口 会自动弹出来。 如何让他始终在webbrowser打开呢？ 先在 Web […]

默认在webbrowser打开新窗口 会自动弹出来。
如何让他始终在webbrowser打开呢？
先在 Web1NewWindow2事件中加入：

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var PpDisp: IDispatch;
  var Cancel: WordBool);
begin
  PpDisp := WebBrowser2.Application;
end;

然后在Web2BeforeNavigate2事件中加入：

procedure TForm1.WebBrowser2BeforeNavigate2(Sender: TObject;
  const PDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
var
begin
  Web1.Navigate(string(URL)); // 再指回WebBrowser1
  Cancel := True;
end;

这样就不会弹出新的窗口了！