unit1.pas

Delphi7应用编程150例附书源码.rar

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, SHDocVw, Comobj;

type
  TfrmMain = class(TForm)
    Label1: TLabel;
    edtURL: TEdit;
    GroupBox1: TGroupBox;
    btnLeft: TButton;
    btnUp: TButton;
    btnRight: TButton;
    btnDown: TButton;
    btnBack: TButton;
    btnForward: TButton;
    btnStop: TButton;
    btnHome: TButton;
    procedure edtURLKeyPress(Sender: TObject; var Key: Char);
    procedure btnUpClick(Sender: TObject);
    procedure btnLeftClick(Sender: TObject);
    procedure btnDownClick(Sender: TObject);
    procedure btnRightClick(Sender: TObject);
    procedure btnBackClick(Sender: TObject);
    procedure btnForwardClick(Sender: TObject);
    procedure btnStopClick(Sender: TObject);
    procedure btnHomeClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;
  IEApp: Variant;

implementation
{$R *.dfm}

procedure TfrmMain.edtURLKeyPress(Sender: TObject; var Key: Char);
begin
    if Key=#13 then
    begin
        IEApp:=CreateOLEObject('InternetExplorer.Application') as IWebBrowser2;
        IEApp.Visible:=True;
        IEApp.Navigate(edtURL.Text);
    end;
end;

procedure TfrmMain.btnUpClick(Sender: TObject);
begin
    if IEApp.Top>0 then
    begin
        IEApp.Top:=IEApp.Top-1;
    end;
end;

procedure TfrmMain.btnLeftClick(Sender: TObject);
begin
    if IEApp.Left>0 then
    begin
        IEApp.Left:=IEApp.Left-1;
    end;
end;

procedure TfrmMain.btnDownClick(Sender: TObject);
begin
    IEApp.Height:=IEApp.Height+1;
end;

procedure TfrmMain.btnRightClick(Sender: TObject);
begin
    IEApp.Width:=IEApp.Width+1;
end;

procedure TfrmMain.btnBackClick(Sender: TObject);
begin
    IEApp.GoBack;
end;

procedure TfrmMain.btnForwardClick(Sender: TObject);
begin
    IEApp.GoForward;
end;

procedure TfrmMain.btnStopClick(Sender: TObject);
begin
    IEApp.Stop;
end;

procedure TfrmMain.btnHomeClick(Sender: TObject);
begin
    IEApp.GoHome;
end;

end.