关闭

Delphi WebBrowser始终在当前窗口打开新网页

4246人阅读 评论(0) 收藏 举报
分类:
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var PpDisp: IDispatch;
  var Cancel: WordBool);
begin
  PpDisp := WebBrowser2.Application;
end;

procedure TForm1.WebBrowser2BeforeNavigate2(Sender: TObject;
  const PDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
var
  urlStr: string;
begin
  urlStr := string(URL);
  WebBrowser1.Navigate(Str);
  Cancel := True;
end;
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:570630次
    • 积分:7507
    • 等级:
    • 排名:第2977名
    • 原创:144篇
    • 转载:174篇
    • 译文:1篇
    • 评论:55条
    文章分类
    最新评论