Pemrograman Delphi : Membuat Web Browser dengan Delphi

Program Web Browser dengan Delphi

Untuk membuat aplikasi Web Browser di Code Gear Delphi dapat digunakan komponen WebBrowser pada Tool Palette Tab Internet yang dapat digunakan untuk membuka halaman Web maupun mengexplore File-file lokal seperti hanya Windows Explorer dan Internet Explorer. Buatlah sebuah project dan form baru pada Delphi, desain tampilan form sehingga didapat tampilan seperti pada gambar berikut :

Gambar Rancangan Aplikasi Web Browser

Pengaturan Properti :

Komponen	Properti	Nilai
Form1	(Name) Caption Position	frmBrowser Web Browser poScreenCenter
WebBrowser	(Name)	WebBrowser1
Label1	Caption	Address
Button1	(Name) Caption	btnBack <
Button2	(Name) Caption	btnForward >
Button3	(Name) Caption	btnRefresh Refresh
Button4	(Name) Caption	btnGo Go

Listing Program :

procedure TFBrowser.bBackClick(Sender: TObject);
begin
WebBrowser1.GoBack;
end; 

procedure TFBrowser.bForwardClick(Sender: TObject);
begin
WebBrowser1.GoForward;
end;

procedure TFBrowser.bGoClick(Sender: TObject);
begin
WebBrowser1.Navigate(eAddress.Text);
end;

procedure TFBrowser.bRefreshClick(Sender: TObject);
begin
WebBrowser1.Refresh;
end;

procedure TFBrowser.eAddressKeyPress(Sender: TObject; var Key: Char);
begin
if (Key = Chr(13)) then
begin
WebBrowser1.Navigate(eAddress.Text);
end;
end;