PEMBUATAN WEB BROWSER SEDERHANA DENGAN DELPHI

Hasil compile bisa di download di http://agusmr.tk/upload/datafile/Hasil%20web.rar

Pada pertemuan kali ini kita akan belajar bersama untuk membuat sebuah aplikasi web browser sederhana pada Delphi menggunakan komponen “TWebBrowser” yang sudah di sediakan oleh Delphi. Bagaimana menggunakan komponen tersebut ??.. mari kita coba bersama-sama.

Langkah pertama mari kita buat Project delph baru.

1.      Tambahkan komponen sebagai berikut :

untuk menambahkan komponen webbrowser sebagai berikut

untuk menambahakan komponen Progressbar

untuk menambahkan komponen statusbar

untuk menambahkan komponen panel

setting untuk mensetting statusbar pada properties object inspector

tambahkan panel item di statusbar

Setelah menambahkan semua komponen sekarang masuk pada bagian kode :

1.      Untuk navigasi

procedure TForm1.Button3Click(Sender: TObject);

begin

  webbrowser1.Navigate(edit1.Text);

end;

2.      Untuk ke depan

procedure TForm1.Button2Click(Sender: TObject);

begin

  webbrowser1.GoForward;

end;

3.      Untuk kebelakang

procedure TForm1.Button1Click(Sender: TObject);

begin

  webbrowser1.GoBack;

end;

4.      Untuk berhenti

procedure TForm1.Berhenti1Click(Sender: TObject);

begin

webbrowser1.Stop;

end;

5.      Untuk melakukan navigasi ketika di tekan tombol enter

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

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

end;

6.      Untuk menampilkan waktu

procedure TForm1.Timer1Timer(Sender: TObject);

begin

        statusbar1.Panels.Items[1].Text := 'Tanggal : ' + FormatDateTime('DD-MM-YYYY',now)+

        '       Jam : '+FormatDateTime('HH:MM:SS',now);      

end;

hasil compile sebagai berikut :

ketika sedang browsing ke situs http://12650118-imk.blogspot.com/

 ok selesai sudah pembahasan kita kali ini, semoga bermanfaat :

Salam Hangat,

Agus Minanur Rohman