Contoh Program Web Browser pada Delphi

• Deskripsi Program

Program ini adalah program “WEB BROWSER” yang menggunakan menu bar didalamnya. Saat pertama kali program ini dijalankan maka akan tampil google.com sebagai tampilan awal. Program ini menggunakan menu bar yang berisi New, Open, Save, Print dan Close pada menu File; Stop, Refresh dan Find pada menu View; serta About pada menu Help. Selain itu, program ini juga menggunakan 11 tombol dengan fungsi yang berbeda di setiap tombolnya.

• Interface Program

• Code Program

Nama Komponen	Event	Perintah
New1	OnClick	procedure TForm1.New1Click(Sender: TObject); begin webbrowser1.Navigate('www.google.com'); end;
Open1	OnClick	procedure TForm1.Open1Click(Sender: TObject); begin if opendialog1.Execute=true then webbrowser1.Navigate(opendialog1.FileName); end;
Save1	OnClick	procedure TForm1.Save1Click(Sender: TObject); begin if savedialog1.Execute=true then webbrowser1.Navigate(savedialog1.FileName); end;
Print1	OnClick	procedure TForm1.Print1Click(Sender: TObject); begin if printdialog1.Execute=true then webbrowser1.action; end;
Close1	OnClick	procedure TForm1.Close1Click(Sender: TObject); begin application.Terminate; end;
Stop1	OnClick	procedure TForm1.Stop1Click(Sender: TObject); begin webbrowser1.Stop; end;
Refresh1	OnClick	procedure TForm1.Refresh1Click(Sender: TObject); begin webbrowser1.Refresh; end;
Find1	OnClick	procedure TForm1.Find1Click(Sender: TObject); begin if finddialog1.Execute=true then webbrowser1.Navigate(finddialog1.FindText); end;
About1	OnClick	procedure TForm1.About1Click(Sender: TObject); begin showmessage('Web Browser Versi 24.04.14'); end;
Button1	OnClick	procedure TForm1.BitBtn1Click(Sender: TObject); begin webbrowser1.GoBack; end;
Button2	OnClick	procedure TForm1.BitBtn2Click(Sender: TObject); begin webbrowser1.GoForward; end;
Button3	OnClick	procedure TForm1.BitBtn3Click(Sender: TObject); begin webbrowser1.Navigate('www.google.com'); edit1.Text:='www.google.com'; end;
Button4	OnClick	procedure TForm1.BitBtn4Click(Sender: TObject); begin webbrowser1.Stop; end;
Button5	OnClick	procedure TForm1.BitBtn5Click(Sender: TObject); begin webbrowser1.Refresh; end;
Button6	OnClick	procedure TForm1.BitBtn6Click(Sender: TObject); begin webbrowser1.Navigate('www.google.com'); end;
Button7	OnClick	procedure TForm1.BitBtn7Click(Sender: TObject); begin if opendialog1.Execute=true then webbrowser1.Navigate(opendialog1.FileName); end;
Button8	OnClick	procedure TForm1.BitBtn8Click(Sender: TObject); begin if savedialog1.Execute=true then webbrowser1.Navigate(savedialog1.FileName); end;
Button9	OnClick	procedure TForm1.BitBtn9Click(Sender: TObject); begin if finddialog1.Execute=true then webbrowser1.Navigate(finddialog1.FindText); end;
Button10	OnClick	procedure TForm1.BitBtn10Click(Sender: TObject); begin if printdialog1.Execute=true then webbrowser1.action; end;
Button11	OnClick	procedure TForm1.BitBtn11Click(Sender: TObject); begin webbrowser1.Navigate(edit1.Text); end;
Form1	OnCreate	procedure TForm1.FormCreate(Sender: TObject); begin webbrowser1.Navigate('www.google.com'); end;
Webbrowser1	OnCommandStateChange	procedure TForm1.WebBrowser1CommandStateChange(Sender: TObject;   Command: Integer; Enable: WordBool); begin edit1.Text:=webbrowser1.LocationURL; case Command of CSC_NAVIGATEBACK : begin bitbtn1.Enabled := Enable; end; CSC_NAVIGATEFORWARD : begin bitbtn2.Enabled := Enable; end;end;end;

• Output 

 

 Untuk download programnya, silahkan download (DISINI)

Baca Selengkapnya »

Biodata Lionel Messi + Foto

Lionel Messi, seorang pesepakbola hebat asal Argentina. Setiap pecinta sepak bola dimanapun pasti tahu dengan seorang Lionel Messi. Untuk lebih mengenal sosok seorang Messi, disini saya akan membagikan biodatanya serta dengan tambahan beberapa foto Lionel Messi yang saya ambil dari internet.

Berikut biodatanya :

Nama
Lionel Andrés Messi 

Tempat Lahir
Rosario, Santa Fe - Argentina

Tanggal Lahir
24 Juni 1987

Tinggi Badan 
1.69 m (5 ft 7 in)

Agama
Katolik Roma

Tempat Tinggal
Barcelona, Catalonia, Spanyol
 
Kewarganegaraan 
Argentina
  
Nama Ayah
Jorge Horacio Messi

Nama Ibu
Celia Maria Cuccittini

Nama Saudara
Rodrigo (kakak), Matias (kakak), Maria Sol (adik)
 
Nama Pasangan 
Antonella Roccuzzo

Nama Anak 
Thiago Messi

Informasi Klub
FC. Barcelona

Posisi
Penyerang

No. Punggung
10

Karir Junior
1995–2000 Newell's Old Boys
2000–2003 FC Barcelona

Karir Senior

2003–2004	Barcelona C
2004–2005	Barcelona B
2004–sekarang	Barcelona

Tim Nasional 

2004̣–2005	Argentina U-20
2008	Argentina U-23
2005–sekarang	Argentina

Foto-foto Lionel Messi :

Sekian dulu biodata dari Lionel Messi yang dapat saya bagikan.. Terima Kasih.. :)

Baca Selengkapnya »