main_frm.pas

来自「一个简单的WEB浏览器」· PAS 代码 · 共 82 行

unit Main_frm;

interface

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

type
  TfrmWebBrowser = class(TForm)
    stbrInfo: TStatusBar;
    Panel1: TPanel;
    wbrwsWeb: TWebBrowser;
    Label1: TLabel;
    edtURL: TEdit;
    btnGo: TButton;
    btnPre: TButton;
    btnNext: TButton;
    btnStop: TButton;
    btnRefresh: TButton;
    btnOpen: TButton;
    opdlgOpen: TOpenDialog;
    procedure btnGoClick(Sender: TObject);
    procedure btnPreClick(Sender: TObject);
    procedure btnNextClick(Sender: TObject);
    procedure btnStopClick(Sender: TObject);
    procedure wbrwsWebStatusTextChange(Sender: TObject;
      const Text: WideString);
    procedure btnRefreshClick(Sender: TObject);
    procedure btnOpenClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmWebBrowser: TfrmWebBrowser;

implementation

{$R *.dfm}

procedure TfrmWebBrowser.btnGoClick(Sender: TObject);
begin
  wbrwsWeb.Navigate(WideString(edtURL.Text));
end;

procedure TfrmWebBrowser.btnPreClick(Sender: TObject);
begin
  wbrwsWeb.GoBack;
end;

procedure TfrmWebBrowser.btnNextClick(Sender: TObject);
begin
  wbrwsWeb.GoForward;
end;

procedure TfrmWebBrowser.btnStopClick(Sender: TObject);
begin
  wbrwsWeb.Stop;
end;

procedure TfrmWebBrowser.wbrwsWebStatusTextChange(Sender: TObject;
  const Text: WideString);
begin
  stbrInfo.Panels[0].Text := Text;
end;

procedure TfrmWebBrowser.btnRefreshClick(Sender: TObject);
begin
  wbrwsWeb.Refresh;
end;

procedure TfrmWebBrowser.btnOpenClick(Sender: TObject);
begin
  if opdlgOpen.Execute then
    edtURL.Text := opdlgOpen.FileName;
end;

end.