Cara Membuat Aplikasi Web Browser Simpel Sendiri

Langkah – langkah Cara Membuat Aplikasi Web Browser Simpel Sendiri :
1. Buka Aplikasi Delphi
2. Klik File -> New -> Application.
3. Buat dulu desainnya .



4. Disini kita membutuhkan setidaknya ada 11 komponen yaitu :

1. WebBrowser1 –> Ada pada pallete Internet
2. Label1, Edit1, Panel1, Button1, Button2, Button3, Button4, Button5, Button6 –> Ada pada pallete Standard
3. Progress Bar –> Ada pada pallete Win32.

5. Atur propertiesnya, kotak properties berada disamping kiri tampilan delphi 7.
6. Ganti Caption Untuk :

1. Button1 = < xxx
2. Button2 = >xxx
3. Button3 = Home
4. Button4 = Go
5. Button5 = Refresh
6. Button6 = Stop
7. Label1 = (Kosong)
8. Panel1 = (Kosong)---Nb Untuk Nama Terserah anda deh

7. Kemudian Isikan coding dibawah ini dengan cara klik doubel / dua kali pada tombol yang kita inginkan.
Untuk Button1 atau < atau Back
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.WebBrowser1.GoBack;
end;
Untuk Button2 atau > atau Forward
procedure TForm1.Button2Click(Sender: TObject);
begin
form1.WebBrowser1.GoForward;
end;


Untuk Button3 atau Home
procedure TForm1.Button3Click(Sender: TObject);
begin
form1.WebBrowser1.GoHome;
end;
Untuk Button4 atau Go
procedure TForm1.Button4Click(Sender: TObject);
begin
form1.WebBrowser1.Navigate(edit1.Text);
end;
Untuk Button5 atau Refresh
procedure TForm1.Button5Click(Sender: TObject);
begin
form1.WebBrowser1.Refresh;
end;
Untuk Button6 atau Stop 
procedure TForm1.Button6Click(Sender: TObject);
begin
webbrowser1.Stop;
end; 
8. Untuk Komponen Edit1, pada menu event ( dismping properties ) di keypressY klik dua kali / double. dan isikan coding ini.
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then webbrowser1.Navigate(edit1.Text);
end;  


9. Untuk Komponen WebBrowser, pada menu event ( disamping properties ) klik dua kali di :
OnBeforeNavigate
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
label1.Caption := ‘Loading…’
end;
OnCommandStateChange
procedure TForm1.WebBrowser1CommandStateChange(Sender: TObject;
Command: Integer; Enable: WordBool);
begin
case Command of
CSC_NAVIGATEBACK :
begin
button1.Enabled := Enable;
end;
CSC_NAVIGATEFORWARD :
begin
button2.Enabled := Enable;
end;
end;
end;

OnNavigateComplete
procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
label1.Caption := ‘Selesai’
end;

OnProgressChange
procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
ProgressMax: Integer);
begin
if Progress>0 then
begin
ProgressBar1.Max:= ProgressMax ;
ProgressBar1.Position := Progress;
end
else
ProgressBar1.Position:= 0 ;
edit1.Text := webbrowser1.LocationURL ;
end;
end.

10. Setelah semuanya selesai, tinggal disave, dengan cara klik File -> Save All.
11. Untuk menjalankannya pencet F9.
Semoga Bermanfaat :)

Mohon Maaf Program saya pake bahasa sunda silakan download z 

Untuk Melahat Hasil' yang sudah saya buat download disini