1. Langkah pertama buka delphi anda lalu siapkan dulu 11 komponen wajibnya 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, apakah sudah ada 11 komponen di form tersebut lalukan dulu aja itu.
2. Pada langkah yang kedua setelah anda menyiapkan 11 komponen tersebut, selanjutnya adalah mengganti nama nama dari komponen yang sudah anda masukan ke form delphi, Button1 ubah jadi Back, Button2 ubah jadi forward, Button3 ubah jadi Home, Button4 ubah jadi Go, Button5 ubah jadi Refresh, Button6 ubah jadi Stop, Label1 dan Panel1 untuk percobaan biarkan dulu saja atau kosongkan.
3. Pada langkah yang ketiga lalu double klik pada masing masing button satu satau lalu masukan codingnya dibawah ini:
Button1 atau Back
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.WebBrowser1.GoBack;
end;
Button2 atau Forward
procedure TForm1.Button2Click(Sender: TObject);
begin
form1.WebBrowser1.GoForward;
end;
Button3 atau Home
procedure TForm1.Button3Click(Sender: TObject);
begin
form1.WebBrowser1.GoHome;
end;
Button4 atau Go
procedure TForm1.Button4Click(Sender: TObject);
begin
form1.WebBrowser1.Navigate(edit1.Text);
end;
Button5 atau Refresh
procedure TForm1.Button5Click(Sender: TObject);
begin
form1.WebBrowser1.Refresh;
end;
Button6 atau Stop
procedure TForm1.Button6Click(Sender: TObject);
begin
form1.webbrowser1.Stop;
end;
Dan Untuk Komponen Edit1, pada menu event dismping properties cari tulisan keypress lalu klik dua kali atau double klik dan kemudian isikan coding ini;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then webbrowser1.Navigate(edit1.Text);
end;
4. Langkah yang keempat Untuk Komponen WebBrowser, pada menu event tepat 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;
5. Pada langkah yang kelima masih di komponen web browser4 seperti nomer 4 diatas lalu cari saja OnCommandStateChange dan masukan coding dibawah ini:
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;
6. Pada langkah yang keenam, masih di komponen web browser cari saja tulisan OnNavigateComplete lalu masukan coding dibawah ini:
OnNavigateComplete
procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
label1.Caption := 'Selesai'
end;
7. Pada langkah yang ketujuh masih di komponen web browser lalu cari tulisan OnProgressChange dan masukan koding dibawah ini:
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.
8. Langkah yang terakhir run dulu atau klik simbol segitiga, jika tidak ada yang error seharusnya muncul dengan baik, dan berikut contohnya yang saya coba test langsung buat buka youtube, selesai.
Dan hanya itu saja tips tutorial Cara Membuat Web Browser Sendiri Dengan Delphi 7 semoga bermanfaat dan dapat membantu terima kasih.
