1,594
社区成员




//网上找的思路:放一个WebBrowser2,隐藏
//不一定好用
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
ppDisp := Self.WebBrowser2.OleObject;
end;
procedure TForm1.WebBrowser2BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
Cancel := True;
Self.WebBrowser1.Navigate(URL);
end;
procedure TForm1.FormShow(Sender: TObject);
begin
Self.WebBrowser1.Navigate('http://www.baidu.com');
Self.WebBrowser2.Width := 0;
Self.WebBrowser2.Height:= 0;
end;