Menghapus Teks Pada Edit Box – Delphi 7 dan Combo Box dan Option Button – Delphi 7

Menghapus Teks Pada Edit Box – Delphi 7

Pertama tama Design Form Sebagai Berikut :

Ubah Properties Name Setiap Object Sebagai Berikut :

Berikut Alur Aplikasinya: Pada Saat Program Dijalankan Maka Nama, Kelas, No Telp dan Alamat kita muncul pada Component Edit Box dan Memo. Nah Jika Kita Mengklik Button_Bersih Maka Seluruh Teks Pada Edit Box Dan Memo Hilang. dan yang terakhir jika Kita Mengklik Button_Keluar maka akan keluar dari program.

Berikut List Codenya:

Pada Saat Dijalankan Maka Teks Muncul Pada Edit Box —> Event FormCreate pada frm_materi3:

1 2 3 4 5 6 7 8 9

procedure Tfrm_materi3.FormCreate(Sender: TObject); begin     edit_nama.Text:='Eko Wardoyo';   edit_kelas.Text:='11.7G.01';   edit_notelp.Text:='0857xxxxxxxx';   memo_alamat.Text:='Jln Pertanian Selatan RT 014 RW 03 No 12 Klender Jakarta Timur';   end;

Pada Saat Button_bersih di Klik Maka Akan Menghapus Teks Pada Edit Box dan Memo, Menggunakan Event On Click Pada Component Button_Bersih : list code nya hampis sama dengan menampilkan teks hanya saja yang kita tampilkan kosong jadi (‘Eko Wardoyo’) kita ganti menjadi (‘ ‘) kutip kutip yang bisa diartikan akan menampilkan teks kosong (^o^)*mudah kan.

1 2 3 4 5 6 7 8 9

procedure Tfrm_materi3.button_bersihClick(Sender: TObject); begin     edit_nama.Text:='';   edit_kelas.Text:='';   edit_notelp.Text:='';   memo_alamat.Text:='';   end;

Pada Saat Button Keluar Di Klik Maka Akan Keluar dari Program Menggunakan Event On Click Pada Component Button_keluar :

1 2 3 4 5 6

procedure Tfrm_materi3.button_keluarClick(Sender: TObject); begin     close;   end;

Berikut ini adalah Hasil Applikasi Pada Saat Dijalankan ( Press F9 ) :

Nah Berikut ini tampilan Form Pada Saat Button Bersih Di Klik :

Combo Box dan Option Button – Delphi 7

Untuk Component Radio Button terdapat pula di tab standart dengan Icon Sebagai Berikut :

Teorinya Udah Sekarang langsung Aja Praktek penggunaannya Ya, Pertama Tama Buat tampilan Form Sebagai Berikut :

Ubah Properties Tiap Object Sebagai Berikut :

Nah Berikut Alur dari Program nya, Saat Program Dijalankan Maka Combo Box akan terisi 2 Pilihan Item Yakni :

1. Sistem Informasi.

2. Technik Komputer.

Saat Radio Button dipilih Pagi / Siang maka edit box akan memunculkan teks ‘ Waktu Kuliah Anda Pagi / Siang’.

Saat Radio Button dipilih Sore / Malam maka edit box akan memunculkan teks ‘Waktu Kuliah Anda Sore / Malam’.

Dan Saat Button Keluar Di Klik Maka akan keluar dari program,

Berikut List Code Programnya : Untuk Mengisi Combo Box kita bisa menggunakan 2 cara, yakni mengisi langsung pada saat design form dengan mengisinya pada properties name Items Combo Box seperti Gambar berikut ini :

Klik Kota Kecil pada Properties Name combo_jurusan, maka akan muncul dialog Box sebagai berikut :

Kita Tinggal Menuliskan Items / isi list yang ingin ditampilkan setiap baris kata kita tinggal enter. jika semua sudah tinggal klik Ok Saja. maka pada saat program dijalankan maka combo_jurusan akan menampilkan teks yang sudah kita setting tadi.

Namun ada satu cara lagi Mengisi items list pada combo box Delphi 7,  yakni dengan menggunakan coding dimana kita mengatur list yang dimunculkan pada saat form dijalankan dengan menggnakan code program delphi 7, berikut Code Programnya :

1 2 3 4 5 6 7

procedure Tfrm_materi4.FormCreate(Sender: TObject); begin     combo_jurusan.Items.Add('Sistem Informasi');   combo_jurusan.Items.Add('Technik Komputer');   end;

code tersebut kita bisa terjemahkan sebagai berikut : event formcreate berati code dijalankan pada saat program dijalankan, pada combo_jurusan.items beratir pada properties items add berarti ktia menambahkan (‘Sistem Informasi’) kenapa diberikan kutip karena yang akan kita masukkan berupa teks.

Berikut Code Radio Button nya :

1 2 3 4 5 6

procedure Tfrm_materi4.radio_pagiClick(Sender: TObject); begin     edit_waktu.Text:='Waktu Kuliah Anda Pagi / Siang Hari';   end;

Kalau Radio Button Pagi / Siang di Klik atau dipilih maka edit_waktu akan mengmpilkan teks := ‘Waktu Kuliah Anda Pagi / Siang hari’

1 2 3 4 5 6

procedure Tfrm_materi4.radio_malamClick(Sender: TObject); begin       edit_waktu.Text:='Waktu Kuliah Anda Sore / Malam Hari';   end;

Sama halnya dengan Radio Button Malam, Berikut Code Untuk Button Keluar :

1 2 3 4 5 6

procedure Tfrm_materi4.button_keluarClick(Sender: TObject); begin     close;   end;

Berikut Untuk tampilan Program Saat Sudah Dijalankan :

Combo Jurusan bisa di drop down dengan pilihan Items Sistem Informasi Masi Dan Technik Komputer.

Pada Saat Radio Button Sore / Malam Dipilih Maka Muncul Teks Pada Edit Box Waktu dengan Teks Yang Sudah Ditentukan ‘Waktu Kuliah Anda Sore / Malam Hari’.

semoga bermanfaat. klik disini