ietestmainf.pas

delphi写的 HTML控制,简单代码,转

unit IETestMainF;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, IEController, Menus;

type
  TMainForm = class(TForm)
    Panel1: TPanel;
    OpenBtn: TButton;
    CloseBtn: TButton;
    Label1: TLabel;
    UrlEdit: TEdit;
    BrowseBtn: TButton;
    Panel2: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    AddrBarShowBtn: TButton;
    AddrBarHideBtn: TButton;
    MenuBarShowBtn: TButton;
    MenuBarHideBtn: TButton;
    StatusBarHideBtn: TButton;
    StatusBarShowBtn: TButton;
    ShowToolbarBtn: TButton;
    HideToolbarBtn: TButton;
    Panel3: TPanel;
    Label4: TLabel;
    Label5: TLabel;
    FullScreenTrueBtn: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    FullScreenFalseBtn: TButton;
    GroupBox1: TGroupBox;
    BackBtn: TButton;
    ForwardBtn: TButton;
    HomeBtn: TButton;
    SearchBtn: TButton;
    GroupBox2: TGroupBox;
    StatusTextSetBtn: TButton;
    StatusTextEdit: TEdit;
    Panel4: TPanel;
    Label6: TLabel;
    TopEdit: TEdit;
    Label7: TLabel;
    LeftEdit: TEdit;
    Label8: TLabel;
    HeightEdit: TEdit;
    Label9: TLabel;
    WidthEdit: TEdit;
    SetPositionBtn: TButton;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Save1: TMenuItem;
    SaveAs1: TMenuItem;
    Print1: TMenuItem;
    PrintPreveiw1: TMenuItem;
    Browser1: TMenuItem;
    Stop1: TMenuItem;
    Refresh1: TMenuItem;
    N1: TMenuItem;
    Exit1: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure OpenBtnClick(Sender: TObject);
    procedure CloseBtnClick(Sender: TObject);
    procedure BrowseBtnClick(Sender: TObject);
    procedure AddrBarShowBtnClick(Sender: TObject);
    procedure AddrBarHideBtnClick(Sender: TObject);
    procedure MenuBarShowBtnClick(Sender: TObject);
    procedure MenuBarHideBtnClick(Sender: TObject);
    procedure StatusBarShowBtnClick(Sender: TObject);
    procedure StatusBarHideBtnClick(Sender: TObject);
    procedure ShowToolbarBtnClick(Sender: TObject);
    procedure HideToolbarBtnClick(Sender: TObject);
    procedure FullScreenTrueBtnClick(Sender: TObject);
    procedure FullScreenFalseBtnClick(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure BackBtnClick(Sender: TObject);
    procedure ForwardBtnClick(Sender: TObject);
    procedure HomeBtnClick(Sender: TObject);
    procedure SearchBtnClick(Sender: TObject);
    procedure StatusTextSetBtnClick(Sender: TObject);
    procedure SetPositionBtnClick(Sender: TObject);
    procedure SaveAs1Click(Sender: TObject);
    procedure Save1Click(Sender: TObject);
    procedure Print1Click(Sender: TObject);
    procedure PrintPreveiw1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Exit1Click(Sender: TObject);
    procedure Refresh1Click(Sender: TObject);
    procedure Stop1Click(Sender: TObject);
  private
    { Private declarations }
    IEControl:       TIEController;
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.DFM}

procedure TMainForm.FormCreate(Sender: TObject);
begin
  IEControl := TIEController.Create(Self);
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
  IEControl.Free;
end;

procedure TMainForm.OpenBtnClick(Sender: TObject);
begin
  IEControl.IEOpen;
  IEControl.IEVisible := True;
end;

procedure TMainForm.CloseBtnClick(Sender: TObject);
begin
  IEControl.IEClose;
end;

procedure TMainForm.BrowseBtnClick(Sender: TObject);
begin
  IEControl.IEURL := UrlEdit.Text;
end;

procedure TMainForm.AddrBarShowBtnClick(Sender: TObject);
begin
  IEControl.IEAddressBarVisible := True;
end;

procedure TMainForm.AddrBarHideBtnClick(Sender: TObject);
begin
  IEControl.IEAddressBarVisible := False;
end;

procedure TMainForm.MenuBarShowBtnClick(Sender: TObject);
begin
  IEControl.IEMenuBarVisible := True;
end;

procedure TMainForm.MenuBarHideBtnClick(Sender: TObject);
begin
  IEControl.IEMenuBarVisible := False;
end;

procedure TMainForm.StatusBarShowBtnClick(Sender: TObject);
begin
  IEControl.IEStatusBarVisible := True;
end;

procedure TMainForm.StatusBarHideBtnClick(Sender: TObject);
begin
  IEControl.IEStatusBarVisible := False;
end;

procedure TMainForm.ShowToolbarBtnClick(Sender: TObject);
begin
  IEControl.IEToolBarVisible := True;
end;

procedure TMainForm.HideToolbarBtnClick(Sender: TObject);
begin
  IEControl.IEToolBarVisible := False;
end;

procedure TMainForm.FullScreenTrueBtnClick(Sender: TObject);
begin
  IEControl.IEFullScreen := True;
end;

procedure TMainForm.FullScreenFalseBtnClick(Sender: TObject);
begin
  IEControl.IEFullScreen := False;
end;

procedure TMainForm.Button3Click(Sender: TObject);
begin
  IEControl.IEResizable := True;
end;

procedure TMainForm.Button4Click(Sender: TObject);
begin
  IEControl.IEResizable := False;
end;

procedure TMainForm.Button7Click(Sender: TObject);
begin
  IEControl.IESilent := True;
end;

procedure TMainForm.Button8Click(Sender: TObject);
begin
  IEControl.IESilent := False;
end;

procedure TMainForm.Button6Click(Sender: TObject);
begin
  IEControl.IEVisible := True;
end;

procedure TMainForm.Button5Click(Sender: TObject);
begin
  IEControl.IEVisible := False;
end;

procedure TMainForm.BackBtnClick(Sender: TObject);
begin
  IEControl.IEGoBack;
end;

procedure TMainForm.ForwardBtnClick(Sender: TObject);
begin
  IEControl.IEGoForward;
end;

procedure TMainForm.HomeBtnClick(Sender: TObject);
begin
  IEControl.IEGoHome;
end;

procedure TMainForm.SearchBtnClick(Sender: TObject);
begin
  IEControl.IEGoSearch;
end;

procedure TMainForm.StatusTextSetBtnClick(Sender: TObject);
begin
  IEControl.IEStatusText := StatusTextEdit.Text;
end;

procedure TMainForm.SetPositionBtnClick(Sender: TObject);
begin
  with IEControl do
  begin
    IETop := StrToInt(TopEdit.Text);
    IELeft := StrToInt(LeftEdit.Text);
    IEHeight := StrToInt(HeightEdit.Text);
    IEWidth := StrToInt(WidthEdit.Text);
  end;
end;

procedure TMainForm.SaveAs1Click(Sender: TObject);
begin
  IEControl.IESaveAs(ExtractFilePath(Application.ExeName) + 'saved.html');
end;

procedure TMainForm.Save1Click(Sender: TObject);
begin
  IEControl.IESave;
end;

procedure TMainForm.Print1Click(Sender: TObject);
begin
  IEControl.IEPrint(True);
end;

procedure TMainForm.PrintPreveiw1Click(Sender: TObject);
begin
  IEControl.IEPrintPreview;
end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Assigned(IEControl) then IEControl.IEClose;
end;

procedure TMainForm.Exit1Click(Sender: TObject);
begin
  Close;
end;

procedure TMainForm.Refresh1Click(Sender: TObject);
begin
  IEControl.IERefresh;
end;

procedure TMainForm.Stop1Click(Sender: TObject);
begin
  IEControl.IEStop;
end;

end.