当前位置: 首页 > 技术文档 > 正文
avatar

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

QQ图片20160316115215

默认在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;

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

本文固定链接: https://blog.yanhualou.com/jishu/675.html | 烟花楼博客
标签:

Delphi WebBrowser当前窗口打开新网页:等您坐沙发呢!

发表评论

快捷键:Ctrl+Enter