Membuat Combobox Nama Bulan

Membuat combobox untuk nama bulan merupakan langkah awal untuk melakukan aktifitas pertama kita dalam membuat sebuah aplikasi dengan menggunakan bahasa computer yang kita pakai. Oleh karena itu, anggaplah program ini sebagai perkenalan kita dengan bahasa program Delphi.
Untuk membuat program atau aplikasi ini, kita hanya menggunakan tiga buah komponen yang ada pada Delphi. Komponen tersebut terdiri atas Combobox, Label, dan Button dimana Combobox digunakan untuk menampilkan deretan nama bulan, label digunakan dalam menampilkan tulisan pada form, dan button sendiri akan digunakan sebagai tombol.
Untuk lebih jelasnya dalam pembuatan combobox nama bulan, ikuti saja langkah – langkah di bawah ini :
1. Buat aplikasi baru dengan cara klik menu File > New Aplication, kemudian Delphi nantinya secara otomatis akan memberikan Form kosong yang akan kita gunakan untuk mendesain program yang kita inginkan.
2. KLo sudah, cari komponen combobox, label, dan button pada Component Palette, yang masing – masingnya mempunyai nama TComboBox, TLabel, dan TButton. Kemudian letakkan komponen – komponen tersebut pada form desain.
3. Ubah properties masing – masing komponen seperti di bawah ini :
- Label > Property > Caption > Nama Bulan
- Button > Property > Caption > Close
4. Setelah itu, aturlah letak komponen – komponen tersebut sesuai dengan yang diinginkan.
5. Sebelum memasuki coding programnya, buatlah terlebih dahulu keterangan yang memuat daftar nama – nama bulan pada notepad. Sebab keterangan ini nantinya akan digunakan untuk menampilkan deretan nama – nama bulan tersebut.
6. Lanjutkan dengan mengklik dua kali pada bidang Form desain dan secara otomatis, kita akan dibawa ke dalam Code Editor. Kemudian pada code editor tersebut ketikkan program di bawah ini :
procedure TForm1.FormCreate(Sender: TObject);
begin
Cbb1.Clear;
Cbb1.Items.LoadFromFile('NamaBulan.txt');
end;
7. Apabila sudah coding tersebut sudah diketik pada Code Editor, lanjutkan kembali dengan memilih even OnClick, kemudian klik dua kali pada bagian tersebut, maka kita akan kembali pada Code Editor, dan ketikkan program di bawah ini :
procedure TForm1.Cbb1Change(Sender: TObject);
begin
Form1.Caption := Cbb1.Text;
end;
8. Terakhir, klik dua kali pada button dan ketikkan kode dibawah ini :
procedure TForm1.btnCloseClick(Sender: TObject);
begin
Close;
end;
9. Apabila semuanya telah siap, kita akan dapat menjalankannya dengan cara mengklik menu utama Run dan dilanjutkan mengklik submenu Run, atau dapat juga dengan menekan tombol F9.