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.