MENGHAPUS TEKS PADA EDIT BOX – DELPHI 7

Assalamualaikum Temen Temen Semua, Salam Luar Biasa hari ini. Nah Pada Kesempatan Kali ini kita bakal Belajar Borland Delphi 7 lagi nich. Kalau Materi Sebelumnya Kita Belajar Menampilkan Teks Pada Component Edit Box Di Delphi 7 Maka Kali ini kita akan belajar Untuk Menghapus Teks Yang Ada Pada Component Edit Box di Delphi 7. Materinya Mudah Kok, Dan Jangan Lupa untuk mengerjakan Latihan latihannya yang tersedia di akhir materi ya, sambil melatih Apa Apa yang sudah Kita Bahas Di Postingan ini. Mari Langsung Aja Kita Mulai Materi Kita Kali ini.

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     <span class="skimlinks-unlinked">edit_nama.Text:='Eko</span> Wardoyo';   <span class="skimlinks-unlinked">edit_kelas.Text:='11.7G.01</span>';   <span class="skimlinks-unlinked">edit_notelp.Text:='0857xxxxxxxx</span>';   <span class="skimlinks-unlinked">memo_alamat.Text:='Jln</span> 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     <span class="skimlinks-unlinked">edit_nama.Text</span>:='';   <span class="skimlinks-unlinked">edit_kelas.Text</span>:='';   <span class="skimlinks-unlinked">edit_notelp.Text</span>:='';   <span class="skimlinks-unlinked">memo_alamat.Text</span>:='';   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 :

Nah gampang Kan, Yoiii Dung Kalau mau dipelajari gak ada yang susah kok ‘Belajar Delphi Mudah Kok’. Nah Mungkin Untuk Materi Kali ini itu dulu mudah mudahan kedepan masih punya kesempatan menyampaikan list code delphi lainnya. Buat temen temen yang mau coba latihan yang saya buat untuk materi kita kali ini bisa di download link di bawah ini. Ikuti Soalnya kemudian kerjakan jika ada kesulitan bisa di Liat Aja Listing Codenya yang juga saya lampirkan :

Download Latihan 3 – Menghapus Teks Pada Component Edit Box & Radio Button

Download Project Latihan 3

Nah See You Next Lesson Temen Temen Semua, Salam Luar Biasa.

Eko Wardoyo