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 :
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.
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.
share fungsi masing2 komponen ICS donk mas??
BalasHapus