webbrowser控件怎样才能实现分页浏览?(50分)

webbrowser控件怎样才能实现分页浏览？象maxthon那样。请各位大侠指点一下。

Twebbrowser 本身没有这个功能，加个 TPageControl 这一类的组件来实现就可以了。

procedure TFrm_FCMainForm.wb1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var
NewWb: TWebBrowser;
NewTb: TTabSheet;
begin
NewTb := TTabSheet.Create(pgc_WEB);
NewTb.PageControl := pgc_WEB;
NewTb.ShowHint := True;
NewTb.Show;
NewWb := TWebBrowser.Create(NewTb);
NewWb.Align := alClient;
TWinControl(NewWb).Parent := NewTb;
//事件
NewWb.OnNewWindow2 := wb1NewWindow2;
//以下事件可以不要
NewWb.OnDocumentComplete := wb1DocumentComplete;
NewWb.OnTitleChange := wb1TitleChange;
NewWb.OnStatusTextChange := wb1StatusTextChange;
NewWb.OnBeforeNavigate2 := wb1BeforeNavigate2;
NewWb.OnProgressChange := wb1ProgressChange;

ppDisp:= NewWb.Application;
end;

接受答案了.