Penggunaan Tombol ComboBox

ComboBox Secara tradisional, itu adalah kombinasi dari daftar dropdown atau kotak daftar dan single-line diedit textbox , yang memungkinkan pengguna untuk mengetikkan nilai secara langsung atau memilih nilai dari daftar. Istilah "combo box" kadang-kadang digunakan untuk berarti "daftar drop-down" (Jukka, 2007). Korpela)

Yang pertama kita buat adalah mendesain tampilan program seperti berikut

Tulisan Nim,nama mahasiswa,jurusan dan biaya menggunakan label sedangkan kotak dalognya menggunakan Edit

Kotak dialog pada jurusan menggunakan combobox

 

Setelah itu kita membuat codingan pada checkbox 

Klik pada checkbox dan tulis codingan berikut

procedure TForm1.ComboBox1Change(Sender: TObject);

begin
IF COMBOBOX1.TEXT='S1-MI' THEN
BEGIN
EDIT3.Text :='S1 MANAJEMEN INFORMATIKA';
EDIT4.Text :='3500000';
END
ELSE
IF COMBOBOX1.Text ='D3-MI' THEN
BEGIN
EDIT3.Text :='D3 MANAJEMEN INFORMATIKA';
EDIT4.Text :='2750000';
END
ELSE
IF COMBOBOX1.Text ='S1-TI' THEN
BEGIN
EDIT3.Text :='S1 TEKNIK INFORMATIKA';
EDIT4.Text :='3000000';
end;
END;

Berikut ini tampilan combobox saat di Run

Untuk Button Input dan Keluar berikut ini codingannya

procedure TForm1.Button1Click(Sender: TObject);

begin
COMBOBOX1.Text :='';
EDIT1.Text :='';
EDIT2.Text :='';
EDIT3.Text :='';
EDIT4.Text :='';
EDIT1.SETFOCUS;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
APPLICATION.Terminate;
end;

end.

Kik Button Input untuk menghapus / menginput ulang

Klik Button Keluar untuk menutup program

Sekian Artikel Kali Ini

Semoga Bermanfaat

Trimakasih :)