Minggu, 24 Juni 2012

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;