(50分)问:WebBrowser简单问题

//网上找的思路：放一个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;