unitfrmwebbrowser.pas

《Delphi7编程100例》代码,书配资料

unit unitFrmWebBrowser;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, ComCtrls, ToolWin, StdCtrls;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    tlbToolBar1: TToolBar;
    tbtnToolButton1: TToolButton;
    tbtnToolButton2: TToolButton;
    tbtnToolButton3: TToolButton;
    tbtnToolButton4: TToolButton;
    tbtnToolButton5: TToolButton;
    tbtnToolButton6: TToolButton;
    edtUrl: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure WebBrowser1NavigateComplete2(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
    procedure tbtnToolButton1Click(Sender: TObject);
    procedure tbtnToolButton2Click(Sender: TObject);
    procedure tbtnToolButton3Click(Sender: TObject);
    procedure tbtnToolButton4Click(Sender: TObject);
    procedure tbtnToolButton5Click(Sender: TObject);
    procedure tbtnToolButton6Click(Sender: TObject);
    procedure edtUrlKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//浏览本地机器

procedure TForm1.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate('c:\');
end;

//取得当前浏览下载完毕的地址

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  edtUrl.Text := WebBrowser1.LocationURL;
end;

//上页

procedure TForm1.tbtnToolButton1Click(Sender: TObject);
begin
  WebBrowser1.GoBack;
end;

//下页

procedure TForm1.tbtnToolButton2Click(Sender: TObject);
begin
  WebBrowser1.GoForward;
end;

//停止

procedure TForm1.tbtnToolButton3Click(Sender: TObject);
begin
  WebBrowser1.Stop;
end;

//刷新

procedure TForm1.tbtnToolButton4Click(Sender: TObject);
begin
  WebBrowser1.Refresh;
end;

//首页

procedure TForm1.tbtnToolButton5Click(Sender: TObject);
begin
  WebBrowser1.GoHome;
end;

//搜索

procedure TForm1.tbtnToolButton6Click(Sender: TObject);
begin
  WebBrowser1.GoSearch;
end;

//响应回车键

procedure TForm1.edtUrlKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  //如果按下回车键则浏览网页
  if Key = vk_return then
    WebBrowser1.Navigate(edtUrl.Text);
end;

end.