Membuat Submenu dan timer pada Delphi

Saya akan menjelaskan bagaimana cara membuat Submenu dan timer pada Delphi yang saya buat pada laporan akhir saya pada praktikum AP. Pertama-tama kita create new application. Lalu kita membuat MainMenu pada Form 1. Lalu kita insert menu, kita beri menu dengan caption “Menu” dan “Exit”. Setelah itu kita buat submenu pada menu “Menu” yaitu “Timer” dan “Font”. Kita tambah kan Form lagi yaitu Form 2. Di Form 2 kita beri Timer dan 2 label. Lalu pada timer kita klik dua kali lalu ketikan listing seperti berikut:


LABEL1.CAPTION:=FORMATDATETIME('DD MMMM YYYY',NOW);
LABEL2.CAPTION:=TIMETOSTR(TIME);

Lalu di submenu “Timer” pada form 1 kita ketikan listing seperti berikut:

FORM2.SHOW;
FORM1.HIDE;
FORM3.HIDE;

Kita tambahkan Form baru lagi yaitu form 3. Di form 3 kita berikan 3 CheckBox, 3 RadioButton, Label, dan Button. Disini kita menginginkan text yang berada pada label bisa berubah type fontnya dan style font nya. Berikut listing programnya:

RadioButton1:

LABEL1.FONT.NAME:='COMIC SANS MS';



RadioButton2:

LABEL1.FONT.NAME:='ARIAL';

RadioButton3:

LABEL1.FONT.NAME:='TIMES NEW ROMAN’;


CheckBox1:

IF CHECKBOX1.CHECKED=TRUE THEN
 FORM3.LABEL1.FONT.STYLE:=FORM3.LABEL1.FONT.STYLE+[FSBOLD]
ELSE
 FORM3.LABEL1.FONT.STYLE:=FORM3.LABEL1.FONT.STYLE-[FSBOLD];



CheckBox2:

IF CHECKBOX2.CHECKED=TRUE THEN
 FORM3.LABEL1.FONT.STYLE:=FORM3.LABEL1.FONT.STYLE+[FSITALIC]
ELSE
 FORM3.LABEL1.FONT.STYLE:=FORM3.LABEL1.FONT.STYLE-[FSITALIC];



CheckBox3:

IF CHECKBOX3.CHECKED=TRUE THEN
 FORM3.LABEL1.FONT.STYLE:=FORM3.LABEL1.FONT.STYLE+[FSUNDERLINE]
ELSE
 FORM3.LABEL1.FONT.STYLE:=FORM3.LABEL1.FONT.STYLE-[FSUNDERLINE];


Lalu di submenu “Font” pada form 1 kita ketikan listing seperti berikut:

FORM3.SHOW;
FORM1.HIDE;
FORM2.HIDE;

Pada Form 2 dan Form 3 masing-masing kita tambahkan Button yang digunakan untuk kembali ke Form 1. Berikut listing programnya:

FORM1.SHOW;
FORM2.HIDE;
FORM3.HIDE;

Lalu di menu “Exit” pada Form 1 ketikan listing berikut:

CLOSE;

Lalu outputnya seperti ini :