TWebbrower禁止弹出窗口

来源：互联网发布：java找不到或无法加载编辑：程序博客网时间：2024/05/16 02:30

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, OleCtrls, SHDocVw;typeTForm1 = class(TForm)WebBrowser1: TWebBrowser;Button1: TButton;WebBrowser2: TWebBrowser;procedure Button1Click(Sender: TObject);procedure WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch;var Cancel: WordBool);procedure WebBrowser2BeforeNavigate2(ASender: TObject;const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,Headers: OleVariant; var Cancel: WordBool);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);beginWebBrowser1.Navigate('http://www.baidu.com');end;procedure TForm1.WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch;var Cancel: WordBool);beginppDisp := WebBrowser2.DefaultInterface;Cancel := False;end;procedure TForm1.WebBrowser2BeforeNavigate2(ASender: TObject;const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,Headers: OleVariant; var Cancel: WordBool);beginWebBrowser1.Navigate(URL);Cancel := True;end;end.

0 0