unit1.pas

来自「delphi老牌的浏览器控件」· PAS 代码 · 共 53 行

//This cool demo was build by BitMaker

unit Unit1;

interface

uses
  SysUtils, Classes, Forms, Buttons, SHDocVw_EWB, EmbeddedWB, StdCtrls,
  Controls, ExtCtrls, OleCtrls, EwbCore;

type
   TForm1 = class(TForm)
      EmbeddedWB1: TEmbeddedWB;
      Panel1: TPanel;
      SpeedButton1: TSpeedButton;
      edURL: TEdit;
      SpeedButton2: TSpeedButton;
      procedure FormShow(Sender: TObject);
      procedure SpeedButton2Click(Sender: TObject);
      procedure SpeedButton1Click(Sender: TObject);
   private
    { Private declarations }
   public
    { Public declarations }
   end;

var
   Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
   EmbeddedWB1.Navigate(edURL.Text);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
   EmbeddedWB1.GoHome;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
   if EmbeddedWB1.Document <> nil then
      EmbeddedWB1.PrintPreviewFromTemplate(ExtractFilePath(Application.ExeName) +
      'template.htm');
end;

end.