Cara Menerapkan Fungsi ComboBox di Delphi 7

Tags

Bagi sebagian orang yang ahli dalam bahasa pemograman delphi, mungkin sudah tidak asing lagi dengan fitur delphi yang satu ini, yaitu ComboBox, namun bagi sebagian orang yang masih tahap belajar bahasa pemograman delphi tentu perlu referensi agar tau bagaimana caranya menerapkan fungsi combobox pada delphi ini, nah untuk itu disini saya mencoba menulis sedikit gambaran tentang cara menerapkan fungsi combobox pada delphi 7.

Apa itu combobox?


ComboBox adalah fitur tambahan dalam pemograman delphi yang pungsinya kurang lebih untuk memilih aplikasi atau program yang akan dijalankan secara manual. Jadi kalau dalam 1 aplikasi terdapat lebih dari 1 menu atau 1 tujuan program, salah satu cara untuk memilih aplikasi yang akan di jalankan adalah dengan menggunakan fungsi combobox ini.

Bagaimana cara menerapkan fungsi combobox delphi?


Sebagai contoh kita akan membuat 3 buah label yang setiap label memiliki tujuan berbeda.

Contoh:
  • Label 1 memilih warna merah
  • Label 2 memilih warna biru
  • Label 3 memilih warna hijau

Berarti kita harus membuat string dulu pada combobox memasukan 3 perintah tadi.

Buka program delphi 7 sobat, lalu masukan 1buah komponen combobox dan 3 buah label, contohnya seperti pada gambar di bawah ini

Cara Menerapkan Fungsi ComboBox di Delphi 7

Selanjutnya kita masukan string ke combobox tersebut. Lihat bagian Object Inspector

Cara Menerapkan Fungsi ComboBox di Delphi 7

Masukan string yang di inginkan, karena dalam contoh kita akan membuat 3 label pemilih warna yaitu Merah, Biru dan Hijau, maka kita masukan string Merah Biru dan Hijau kebagian stringnya.

Cara Menerapkan Fungsi ComboBox di Delphi 7

Lalu klik OK, selanjutnya kita masuk ketahap pengcodingan, dengan cara doble klik pada combobox lalu masukan 3 perintah untuk menjalankan string tadi.

masukan coding seperti berikut:

if combobox1.Text = 'Merah' then begin
label1.Font.Color := clred;
end else
if combobox1.Text = 'Biru' then begin
label2.Font.Color := clblue;
end else
if combobox1.Text = 'Hijau' then begin
label3.Font.Color := clgreen;
end;
end;

Cara Menerapkan Fungsi ComboBox di Delphi 7

Setelah coding dimasukan, silahkan tekan F9 untuk mencobanya, apakah sudah benar atau masih ada yang eror. Dan kalau sudah benar tidak ada yang eror maka hasilnya kurang lebih seperti ini

Cara Menerapkan Fungsi ComboBox di Delphi 7

Nah mudah bukan? Itulah cara menerapkan fungsi combobox di project delphi 7. Keterangan diatas hanyalah sebatas contoh dasar saja, sobat bisa mengembangkannya lebih jauh lagi. Semoga bermanfaat dan salam coding Delphi 7.

1 komentar so far

Silahkan berkomentar dengan sopan dan tidak meninggalkan link aktip.

Terima Kasih.

EmoticonEmoticon