I.
Deskripsi
Program
Program ini memiliki 2
kegunaan , yaitu untuk sebgai memo dengan karakteristik font yang dapat diubah.
Dan juga sebagai webbrowser untuk masuk ke 4 situs yaitu google,facebook,yahoo
dan twitter. Program ini terletak pada pagecontrol yang terbagi menjadi 2 tab.
Ketika program dijalankan
maka kita akan masuk ke tab pertama yaitu terdapat memo1 yang tulisannya dapat
diubah karakternya sesuai keinginan kita baik itu jenis font,warna maupun
ukuran font. Coding perintah ini terdapat pada bitbtn1 yang bertuliskan retry.
Pada tab kedua kita akan masuk ke webbrowser yang didalamnya kita dapat memilih
web mana yang akan dijelajahi sesuai speedbutton yang terdapat pada program
tersebut.
II.
Interface Program
III.
Coding Program
Nama Komponen
|
Event
|
Perintah
|
Bitbtn1
|
onclick
|
procedure
TForm1.BitBtn1Click(Sender: TObject);
begin
if
FontDialog1.Execute = True then
Memo1.Font
:= FontDialog1.Font;
end;
|
Speedbutton1
|
On
click
|
procedure
TForm1.SpeedButton1Click(Sender: TObject);
begin
WEBBROWSER1.Navigate('www.google.com');
end;
|
Speedbutton2
|
Onclick
|
procedure
TForm1.SpeedButton2Click(Sender: TObject);
begin
webbrowser1.Navigate('www.facebook.com');
end;
|
Speedbutton3
|
Onclick
|
procedure
TForm1.SpeedButton3Click(Sender: TObject);
begin
webbrowser1.Navigate('www.yahoo.com');
end;
|
Speedbutton4
|
onclick
|
procedure
TForm1.SpeedButton4Click(Sender: TObject);
begin
webbrowser1.Navigate('www.twitter.com');
end;
|
0 komentar:
Posting Komentar