Browser ala Delphi

oke sobat semua kali ini saya ingin sedikit berbagi bagaimana cara membuat web browser menggunakan borland delphi.kita sudah mengetahui apa itu web browser, dan web browser yang sudah familiar di kalangan kita yaitu Mozila firefox, Internet Explorer, Opera, Google Chrome dll.
Nah sekarang tak usah panjang lebar langsung saja buka delphi sobat tambahkan 1 komponen panel(Tab Standard), 4 komponen button(Tab Standard), 1 komponen edit(Tab Standard) dan 1 komponen WebBrowser(Tab Internet).

Atur propertinya seperti pada gambar dibawah ini:

setelah sobat atur letak  komponen seperti pada gambar diatas sekarang tahap pemberian listing:

listing pada FormOnCreate

procedure TForm1.FormCreate(Sender: TObject);
begin
    webbrowser1.Navigate('www.google.com');
end;

 listing pada ButtonBack

procedure TForm1.ButtonBackClick(Sender: TObject);
begin
    webbrowser1.GoBack;
end;

listing pada ButtonForward

procedure TForm1.ButtonForwardClick(Sender: TObject);
begin
    webbrowser1.GoForward;
end;

listing pada ButtonRefresh

procedure TForm1.ButtonRefreshClick(Sender: TObject);
begin
    webbrowser1.Refresh;
end;

listing pada ButtonSearch

procedure TForm1.ButtonSearchClick(Sender: TObject);
begin
    webbrowser1.Navigate(edit1.Text);
end;

listing pada EditOnEnter

procedure TForm1.Edit1Enter(Sender: TObject);
begin
    webbrowser1.Navigate(edit1.Text);
end;

heeeemm...
setelah sobat berikan listing pada setiap komponen sekarang coba sobat jalankan. Program akan menuju ke halaman google, karena pada bagian FormCreated kita memanggil www.google.com untuk dijalankan ketika form pertama kali di created(dibuat). untuk lebih pasti coba ketikkan muhathirc10.blogspot.com di paman google hasilnya seperti pada gambar dibawah ini:

 hemmm......
ternyata tak begitu susah untuk membuat web browser kecil-kecilan ini.
silahkan di obrak-abrik untuk mencapai sebuah browser yang lebih memuaskan..
untuk sobat  yang mau program yang sudah jadinya silahkan saja download disini
terima kasih atas kunjungannya :-)...