
Buat design form seperti gambar di bawah ini, kemudian save unitnya dengan nama ULabel
Objek Properties :
Objek | Properties | Value |
| Form1 | Caption Name | Materi 1 FLabel |
| Label | Caption Font Color Font Size Font Name Font Style Bold | Universitas Serang Raya clRed 18 Ms Sans Serif True |
| Button1 | Name Caption | BtHilang Hilang |
| Button2 | Name Caption | BtMuncul Muncul |
| Button3 | Name Caption | BtSelesai Selesai |
Objek Event :
Objek Name | Event | Value |
| BtHilang | OnClick | procedure TFLabel.BtHilangClick(Sender: TObject); begin Label1.Caption:=' '; BtMuncul.SetFocus; end; |
| BtMuncul | OnClick | procedure TFLabel.BtMunculClick(Sender: TObject); begin Label1.Caption:='Universitas Serang Raya'; end; |
| BtKeluar | OnClick | procedure TFLabel.BtSelesaiClick(Sender: TObject); begin Close; end; |