Browser adalah suatu program yang digunakan untuk melakukan browsing ke dunia maya. banyak sekali beterbaran program – program browser di muka bumi ini seperti internet explorer, mozilla firefox, opera, netscape dan lain lain.
Kurang puas dengan browser – browser yang sudah ada? kita bisa bikin sendiri kok dengan menggunakan bahasa pemrograman yang kita kenal, salah satunya adalah menggunakan program delphi.
ikuti petunjuknya ya :
1. buat aplikasi baru (file -> new application)
2. masukkan komponen komponen ke dalam form
- Komponen Edit1
- Komponen Button
- Komponen “webbrowser” yang bisa diambil dari pallete “internet”.
Lalu masukan perintah ini:
// Tombol home
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.WebBrowser1.GoHome;
end;
begin
Form1.WebBrowser1.GoHome;
end;
// Tombol Go
procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.Navigate(edit1.text);
end;
begin
WebBrowser1.Navigate(edit1.text);
end;
//Tombol Refresh
procedure TForm1.Button3Click(Sender: TObject);
begin
Webbrowser1.Refresh;
end;
begin
Webbrowser1.Refresh;
end;
//Tombol Browser
procedure TForm1.Button4Click(Sender: TObject);
begin
Webbrowser1.GoForward;
end;
begin
Webbrowser1.GoForward;
end;
//Tombol Back
procedure TForm1.Button5Click(Sender: TObject);
begin
Webbrowser1.GoBack;
end;
begin
Webbrowser1.GoBack;
end;
//Form Create
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.WebBrowser1.navigate(‘www.erwan19.wordpress.com’)
end;
begin
form1.WebBrowser1.navigate(‘www.erwan19.wordpress.com’)
end;
3. Jalankan Program. Kembangkan sesuai keinginan
No comments:
Post a Comment