怎样在一个form中打开多个网页(100分)

怎么在程序中做成类似傲游浏览器的效果

1.找个支持多页浏览的浏览器组件；
2.用 TPageControl 这一类的组件，动态创建浏览器组件。

自己编写个类似的控件：）

function TFrm_FCMainForm.NewWebWind(const URL: string = ''): IDispatch;
var
NewWb: TWebBrowser;
NewTb: TTabSheet;
begin
NewTb := TTabSheet.Create(pgc_WEB);
NewTb.PageControl := pgc_WEB;
NewTb.ShowHint := True;
NewTb.OnShow := ts6Show;
if URL <> '' then
NewTb.Caption := URL
else NewTb.Caption := cbb_httpUrl.Text;
NewTb.Show;

NewWb := TWebBrowser.Create(NewTb);
NewWb.Align := alClient;
//事件
NewWb.OnNewWindow2 := wb1NewWindow2;
NewWb.OnDocumentComplete := wb1DocumentComplete;
NewWb.OnTitleChange := wb1TitleChange;
NewWb.OnStatusTextChange := wb1StatusTextChange;
NewWb.OnBeforeNavigate2 := wb1BeforeNavigate2;
NewWb.OnProgressChange := wb1ProgressChange;

TWinControl(NewWb).Parent := NewTb;
if URL <> '' then
NewWb.Navigate(URL);
Result := NewWb.Application;
end;

procedure TFrm_FCMainForm.wb1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
ppDisp := NewWebWind();
end;

多人接受答案了。