Delphi – Web Browser

Nah langsung aja kita praktekkan ya temen temen.

• Pertama Tama buatlah design form sebagai berikut dengan menggunakan Web Browser di tengah, panel, 1 buah edit box dan 4 buat button.

 

• Aturlah Properties Namenya sepeti dibawah ini.

 

Untuk Alur Programnya sebagai berikut :

• Pada saat program dijalankan maka web browser akan langsung menuju google sebagai halaman awalnya.
• Untuk pergi ke alamat web yang dituju missal youtube kita tinggal ketikkan “ youtube.com” pada edit box kemudian Klik Search untuk menuju alamat tersebut
• Back untuk kembali ke page sebelumnya.
• Next untuk kembali ke page setelahnya.
• Refresh untuk Refresh web Browser.

Berikut ini adalah Listing Codenya :

1 2 3 4 5 6

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

diatas adalah code untuk pembuatan tampilan awal google, diletakkan pada saat program dijalankan.

1 2 3 4 5 6

procedure Tfrm_my_web_browser.button_searchClick(Sender: TObject); begin     webbrowser1.Navigate(edit_web.Text);   end;

jika button search di klik maka akan menuju alamat yang ada pada edit box

1 2 3 4 5 6

procedure Tfrm_my_web_browser.button_backClick(Sender: TObject); begin     webbrowser1.GoBack;   end;

button back untuk kembali ke halaman sebelumnya.

1 2 3 4 5 6

procedure Tfrm_my_web_browser.button_nextClick(Sender: TObject); begin     webbrowser1.GoForward;   end;

button next untuk kembali ke paga setelahnya.

1 2 3 4 5 6

procedure Tfrm_my_web_browser.button_refreshClick(Sender: TObject); begin     webbrowser1.Refresh;   end;

button refresh untuk refresh laman web browser.

Dan Untuk temen temen yang mau lihat hasil tampilan programnya, perhatikan gambar dibawah ini.

tampilan awal saat dijalankan - google sebagai halaman awal web browser

tampilan saat menjalankan "youtube.com" pada edit box kemudian di search

klik disini