那我用webbroser怎么在里面显示网页内容

Question

WebBrowser.Navigate('http://www.163.com');

Answer 1

http://www.csdn.net/expert/TopicView.asp?id=512806
救命啊

Answer 2

lks111(lks111)　:
   小兄弟，把这个贴子发的到处都是，其实在Delphi自带的Demo 中就有十分明确的例子.

Answer 3

看看下面的代码：
**********************************************
unit UnitMain;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ImgList, ComCtrls, StdCtrls, jpeg, ExtCtrls, ToolWin, OleCtrls, SHDocVw,isp3,
  ActnList, Menus, DBTables;const  CM_HOMEPAGEREQUEST=WM_USER+$1000;type
  TFormMain = class(TForm)
    StatusBar1: TStatusBar;
    CoolBar1: TCoolBar;
    Panel1: TPanel;
    Panel2: TPanel;
    Image1: TImage;
    CoolBar2: TCoolBar;
    ToolBar1: TToolBar;
    ComboBoxURL: TComboBox;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolBar2: TToolBar;
    BackBtn: TToolButton;
    ForWardBtn: TToolButton;
    RefreshBtn: TToolButton;
    StopBtn: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    WebBrowser1: TWebBrowser;
    ActionList1: TActionList;
    ActionBack: TAction;
    ActionForward: TAction;
    ActionReFresh: TAction;
    ActionStop: TAction;
    MainMenu1: TMainMenu;
    nView: TMenuItem;
    nTool: TMenuItem;
    nStatusBar: TMenuItem;
    HotImageList: TImageList;
    ImageList: TImageList;
    AboutBtn: TToolButton;
    WHBtn: TToolButton;
    ToolButton1: TToolButton;
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton13Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ActionBackUpdate(Sender: TObject);
    procedure ActionForwardUpdate(Sender: TObject);
    procedure ForWardBtnClick(Sender: TObject);
    procedure BackBtnClick(Sender: TObject);
    procedure RefreshBtnClick(Sender: TObject);
    procedure WebBrowser1DocumentComplete(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
    procedure ComboBoxURLClick(Sender: TObject);
    procedure ComboBoxURLKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure nToolClick(Sender: TObject);
    procedure nStatusBarClick(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure ToolButton12Click(Sender: TObject);
    procedure AboutBtnClick(Sender: TObject);
    procedure WHBtnClick(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
  private
    FHistoryIndex:integer;
    FHistoryList:TStringList;
    FUpdateCombo:boolean;    procedure FindAddress;
    procedure HomePageRequest(var message:tmessage);
      message CM_HOMEPAGEREQUEST;
  end;var
  FormMain: TFormMain;implementation{$R *.DFM}procedure TFormMain.FindAddress;
var
A,B,C,D:OleVariant;
begin
  webBrowser1.Navigate(ComboBoxURL.text,A,B,C,D);
  END;procedure TFormMain.HomePageRequest(var Message:TMessage);
begin
  ComboBoxURL.Text:='http://127.0.0.1';
  FUpdateCombo:=true;
  FindAddress;
end;  procedure TFormMain.FormCreate(Sender: TObject);
begin
FHistoryIndex:=-1;
FHistoryList:=TStringList.create;
PostMessage(Handle,CM_HOMEPAGEREQUEST,0,0);
end;procedure TFormMain.FormDestroy(Sender: TObject);
begin
FHistoryList.Free;
end;procedure TFormMain.ActionBackUpdate(Sender: TObject);
begin
if FHIstoryList.Count>0 then
   ActionBack.Enabled:=FHistoryIndex>0
   else
   ActionBack.Enabled:=false;
end;procedure TFormMain.ActionForwardUpdate(Sender: TObject);
begin
if FHistoryList.Count>0 then
  ActionForward.Enabled:=FhistoryIndex<FHistoryList.Count-1
  else
  ActionForward.Enabled:=false;
end;procedure TFormMain.ForWardBtnClick(Sender: TObject);
begin
ComboBoxURL.Text:=FHistoryList[FHistoryIndex+1];
FindAddress;
end;procedure TFormMain.BackBtnClick(Sender: TObject);
begin
ComboBoxURL.Text:=FHistoryList[FHistoryIndex-1];
FindAddress;
end;procedure TFormMain.RefreshBtnClick(Sender: TObject);
begin
FindAddress;
end;procedure TFormMain.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
    var
  NewIndex:integer;
  begin
NewIndex:=FHistoryList.IndexOf(URL);
if NewIndex=-1 then
begin
  if (FHistoryIndex>=0)and(FHistoryIndex<FHistoryList.Count-1) then
    while FhistoryList.Count>FHistoryIndex do
      FHistoryList.Delete(FHistoryIndex);
  FhistoryIndex:=FHistoryList.Add(URL);
  end
  else
  FHistoryIndex:=NewIndex;
  if FUpdateCombo then
  begin
    FUpdateCOmbo:=false;
    NewIndex:=ComboBoxURL.Items.IndexOf(URL);
    if NewIndex=-1 then
      ComboBOxURL.Items.Insert(0,URL)
      else
      ComboBoxURL.Items.Move(NewIndex,0);
      end;
  ComboBoxURL.Text:=URL;
  statusbar1.Panels[0].Text:=URL;
end;procedure TFormMain.ComboBoxURLClick(Sender: TObject);
begin
FUpdateCombo:=true;
FindAddress;
end;procedure TFormMain.ComboBoxURLKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=VK_Return then
begin
  FUpdateCombo:=true;
  Findaddress;
  end;
end;
end.