Cara Membuat Web Browser Sendiri Dengan Delphi 7

Kalau sebelumnya saya pernah share tentang Software Web Browser seperti Opera, Mozilla dan juga UC Browser.kali ini kita akan belajar bagaimana cara membuat web browser sendiri menggunakan delphi 7.Kalian gak percaya kalau delphi bisa membuat web browser ? simak tutorial berikut

1.Buka program Delphi 7

2.Siapkan komponennya meliputi 6 buah Button , 1 Progress Bar (ada di pallete Win32) ,1 Edit , 1 Label ,1 Panel ,1 Web Browser (ada di pallete Internet)

Button1 kasih Caption dengan Back

Button2 kasih Caption dengan Forward

Button3 kasih Caption dengan Home

Button4 kasih Caption dengan Go

Button5 kasih Caption dengan Refresh

Button6 kasih Caption dengan Stop

3.Double-Click masing-masing Button lalu masukkan source code berikut

form1.WebBrowser1.GoBack;// untuk Button Back

form1.WebBrowser1.GoForward;// untuk Button Forward

form1.WebBrowser1.GoHome;// untuk Button Home

form1.WebBrowser1.Navigate(Edit1.Text);// untuk Button Go

form1.WebBrowser1.Refresh;// untuk Button Refresh

form1.webbrowser1.Stop;// untuk Button Stop

4.Klik Edit1 lalu lihat pada Object Inspector klik 2 kali pada OnKeyPress lalu masukkan source code berikut

if key = #13 then webbrowser1.Navigate(Edit1.Text);

5.Klik WebBrowser1 lalu klik 2 kali pada OnBeforeNavigate2 lalu masukkan code berikut

label1.Caption := 'Loading...'

6.Klik 2 kali OnCommandStateChange pada WebBrowser1 masukkan code berikut

case Command of

CSC_NAVIGATEBACK :

begin

Button1.Enabled := Enable;

end;

CSC_NAVIGATEFORWARD :

begin

Button2.Enabled := Enable;

end;

7.Masih di WebBrowser1  silahkan klik pada onNavigateComplete2 masukkan code berikut

label1.Caption := 'Selesai'

8.Ini yang terakhir di WebBrowser1 klik saja pada OnProgressChange isikan coding berikut

if Progress>0 then

begin

ProgressBar1.Max:= ProgressMax ;

ProgressBar1.Position := Progress;

end

else

ProgressBar1.Position:= 0 ;

edit1.Text := webbrowser1.LocationURL ;

9.Yang terakhir silakan run dulu atau tekan F9 kalau codingnya benar seharusnya muncul dengan baik.tapi,kalau ada error silakan periksa dulu barangkali ada yang salah