编写web浏览器，如何让网页在同一窗口打开？

Question

我在写一个类似IE浏览器的小程序，需要让网页在同一窗口打开，请高手指教！！

Answer 1

www.playicq.com
又类似的代码。

Answer 2

这里www.playicq.com
我去了，可是没找到
能不能，详细点

Answer 3

可以实现在另一个FORM中打开，至于在同一窗口打开，没试验成功。
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
  ppDisp:=form2.WebBrowser1.Application;
  form2.Show;
end;

Answer 4

可以这样，窗体中放置两个PANEL，其中PANEL1中放WebBrowser1，PANEL2中放WebBrowser2，PANEL1和PANEL2、WebBrowser1和WebBrowser2的LEFT,TOP等所有属性设为一样。PANEL2的VISIBLE设为FALSE。然后添加代码如下即可：
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
  ppDisp:=WebBrowser2.Application;
  panel1.Visible:=false;
  panel2.Visible:=true;
end;procedure TForm1.WebBrowser2NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
  ppDisp:=WebBrowser1.Application;
  panel2.Visible:=false;
  panel1.Visible:=true;
end;

Answer 5

确实是动态窗体的生成，可是怎么样动态窗体生成的窗体嵌在第一个窗体中哪，啊我明白了，是象TabSheet控件一样，动态生成New page ,窗体建立在New page 中，这样好象可以，还有其他办法嘛？

Answer 6

当然有!IE本身就是多窗口!MyIE的实现方法也不同!只要你自己去想,其实还有很多!不管怎么做,实现了就可以!