unit_web.pas

一系列DELPHI的控件如何使用的例子,例子有的比较简单,但是能详细的说明了控件的使用,对许多刚涉足DELPHI的朋友会很有帮助的

unit Unit_web;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    WebBrowser1: TWebBrowser;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  memo1.Left:=WebBrowser1.Left;
  memo1.Top:=WebBrowser1.Top;
  memo1.Height:=WebBrowser1.Height;
  memo1.Width:=WebBrowser1.Width;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
a,b,c,d:olevariant;
begin
  if edit1.text<>'' then//当地址栏不为空时
  begin
    webbrowser1.Visible :=true;//控制WebBrowser1和Memo1控件的可见性
    memo1.Visible :=false;
    webbrowser1.Navigate (edit1.text,a,b,c,d);//浏览网页
  end;
end;


procedure TForm1.BitBtn2Click(Sender: TObject);
var
  a,b,c,d:olevariant;
begin
  if opendialog1.Execute then
    edit1.Text :=opendialog1.FileName;
    webbrowser1.Navigate(opendialog1.filename,a,b,c,d);
end;


procedure TForm1.BitBtn4Click(Sender: TObject);
begin
  webbrowser1.GoBack;//浏览后一个页面
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
   webbrowser1.GoForward;//浏览前一个页面
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
   close;
end;

end.