PERTEMUAN KE-VI MENU BAR, DIALOG BOX, DAN WEB BROWSER

I.         Tujuan Praktikum

Tujuan dari praktikum kali yaitu untuk mengenal menu bar, dialog box, dan web browser pada delphi. Selain itu para parktikan sendiri harus tau , fungsi dan penggunaan dari component pada, dan tentunya para praktikan harus tau cara membuat sebuah program delphi dengan menggunakan menu bar, dialog box, dan web browser. Mulai dari tahap membuat program sampai tahap menjalankan program.

II.      Deskripsi Program

Program yang saya buat pada praktikum kali ini yaitu program xsanbrowser v.0.1. Program ini merupakan program web browser yang dibuat untuk mempermudah seseorang untuk melakukan browsing internet. Untuk menjalankan program ini, pertama-tama pengguna harus koneksi ke internet dulu, lalu setelah itu kita buka xsanbrowswernya. Setelah itu masukan alamat web yang kita inginkan lalu klik “GO” Untuk menjelajah.

III.   Interface Program

 

IV.         Coding Program

Nama Komponen	Event	Perintah
Button1	Onclick	procedure TForm2.Button1Click(Sender: TObject); begin form2.WebBrowser1.GoBack; end;
Button2	Onclick	procedure TForm2.Button2Click(Sender: TObject); begin form2.WebBrowser1.GoForward; end;
Button3	Onclick	procedure TForm2.Button3Click(Sender: TObject); begin form2.WebBrowser1.GoHome; end;
Button4		procedure TForm2.Button4Click(Sender: TObject); begin form2.WebBrowser1.Navigate(edit1.Text); end;
Button5		procedure TForm2.Button5Click(Sender: TObject); begin form2.WebBrowser1.Refresh; end;
Button6	On click	procedure TForm2.Button6Click(Sender: TObject); begin webbrowser1.Stop; end;
Form2	Form create	procedure TForm2.FormCreate(Sender: TObject); begin WebBrowser1.Navigate('www.google.com'); end;
Edit1	Key press	procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key = #13 then webbrowser1.Navigate(edit1.Text); end;
Web browser1	BeforeNavigate2	procedure TForm2.WebBrowser1BeforeNavigate2(ASender: TObject;   const pDisp: IDispatch; const URL, Flags, TargetFrameName, PostData,   Headers: OleVariant; var Cancel: WordBool); begin label2.Caption := 'Loading...' end;
Web browser1	CommandStateChange	procedure TForm2.WebBrowser1CommandStateChange(ASender: 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;
Web browser1	NavigateComplete2	procedure TForm2.WebBrowser1NavigateComplete2(ASender: TObject;   const pDisp: IDispatch; const URL: OleVariant); begin label2.Caption := 'Selesai' end;
Web browser1	ProgressChange	procedure TForm2.WebBrowser1ProgressChange(ASender: 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;

   

V. Output