Membuat Web Browser Sederhana Dengan BORLAN DELPHI 7

Design form ini untuk membuat web browse seperti  mozila firefox, google chrome dan lain sebagainya, tapi web brouse ini hanya sederhana karena tidak memiliki flash player untuk memainkan game dan belum bias untuk download. Setidaknya kita sudah bisa membuatnya dengan menggunakan Delphi 7.

Cara membuatnya juga tidak sulit, sangat sederhana dan hanya membutuhkan beberapa komponen yang ada di Menu Delphi 7. Untuk Lebihjelasnya langsung saja ke TKP.

 Langkah pertama, siapkan form Delphi 7, seperti yang gambar  1.1 di atas, komponen yang di butuhkan untuk membuat we browser sederhana adalah sebagai berikut :

Komponen	Name	Caption
Form1	Form1	Web browse (Judul Programnya)
Button1	Button1	<<
Button2	Button2	>>
Button3	Button3	Refresh
Button4	Button4	Go
WebBrowser1	WebBrowser1
Edit1	Edit1	(kosong)
Label1	Label1	Addres

 

Langkah kedua, masukkan script di bawah ini :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw, ComCtrls;
type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Edit1: TEdit;
    StatusBar1: TStatusBar;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Edit1Keypress(Sender: TObject; var key : char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
    WebBrowser1.GoBack;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    WebBrowser1.GoForward;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
    WebBrowser1.Navigate(Edit1.Text);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
    WebBrowser1.Refresh;
end;



procedure TForm1.Edit1KeyPress(Sender: TObject; var key : char);
begin
   if (key = chr (13)) then
begin
  webBrowser1.Navigate(edit1.Text);
end;
end;

end.

Silahkan Di Compile, jika sudah bisa di Compile maka Web Browse Sederhana ini telah siap digunakan. Tapi jika masih ada yang error maka koreksi kembali script yang ada di Form dengan yang ada pada postingan ini. Oke jangan lupa Di Simpan Project tadi, jika tidak di simpan maka sia-sia kerja keras selama ini.