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 :
0 Response to "TUTORIAL CARA MENGHAPUS TEKS PADA EDIT BOX – DELPHI 7"
Posting Komentar
[[ Silahkan berkomentar yang sesuai dengan topik, Mohon Maaf komentar dengan nama komentator dan isi komentar yang berbau PORNOGRAFI, OBAT, HACK, JUDI dan komentar yang mengandung LINK AKTIF, Tidak akan ditampilkan. Terima Kasih! ]]