请问如何在多选项卡(tabcontrol)控件中内嵌网页?

Question

自己想做一个客服软件,当点击某一个选项卡时,自动加载网站上特定的内容到选项中,方便客户浏览!
如:如何在软件中插入网页呢?
请各位帮忙! 谢谢!

Answer 1

用webbrowse控件，delphi有自带例子

Answer 2

用webbrowser控件.然后在pagecontrol的onchange事件写
 case pagecontrol1.activepageindex of
 0:begin
    webbrowser1.navigate('www.sina.com')；
   end;
 end;

Answer 3

procedure TMainFrm.CreateNewTabBrowser(Url: string);
var
  DesignTimeWB: TWebBrowser;
  TabSheet: TRzTabSheet;
  fWBContainer:TWBContainer;
begin
  TabSheet:=TRzTabSheet.Create(BrowsePage);
  TabSheet.Caption:=leftStrExt(trim(Url),22);
  TabSheet.PageControl:=BrowsePage;
  TabSheet.Hint:=Url;
  TabSheet.ShowHint:=true;
  DesignTimeWB := TWebBrowser.Create(TabSheet);
  TControl(DesignTimeWB).Parent := TabSheet;
  with DesignTimeWB do
  begin
    Align := alClient;
    OnTitleChange:=TitleChange;
    OnNewWindow2 := NewWindowEvent;
    OnCommandStateChange:=CommandStateChange;
  end;
  fWBContainer := TWBContainer.Create(DesignTimeWB);
  fWBContainer.Show3DBorder := False;       // no border
  fWBContainer.ShowScrollBars := true;     // no scroll bars
  if (URL) <> '' then
      DesignTimeWB.Navigate(URL);
  BrowsePage.ActivePage:=TabSheet;
end;BrowsePage是PageControl
TWBContainer可以时IE控件没有3D边框和菜单，如需要我可以把TWBContainer发给你