TUTORIAL CARA MENAMPILKAN TEKS PADA EDIT BOX – DELPHI 7

Pertama Design Form Sebagai Berikut :

Ubah Properties Name Setiap Object Sebagai Berikut :

erikut Listing Kodenya :

1. Klik 2 Kali Pada Frm_latihan 2 kemudian Ketikkan Code Berikut :

1 2 3 4 5 6

procedure Tfrm_latihan2.FormCreate(Sender: TObject); begin   edit_tanya.Text:='Belajar Delphi Susah Gak Sih ??'; end;

dari code berikut bisa kita artikan Tfrm_latihan2.formcreate berarti code dijalankan pada saat frm_latihan2 ditampilkan, jadi pada saat form jalan nanti pada edit_tanya maka akan muncul teks ‘Belajar Delphi Susah Gak Sih ??.

kemudian klik 2 kali pada button_jawab atau pada object inspector pada event click klik 2 kali.

kemudian ketikkan code berikut :

1 2 3 4 5 6

procedure TForm1.button_jawabClick(Sender: TObject); begin   edit_jawab.Text:='Belajar Delphi Gampang Kok'; end;

kode berikut bisa dijabarkan bahwa pada saat button_jawab diklik maka edit_jawab akan menampilkan teks ‘Belajar Delphi Gampang Kok’.

dan code yang terakhir klik 2 kali pada button_keluar kemudian ketikkan code berikut :

1 2 3 4 5 6

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

dari code diatas bisa kita jelaskan sebagai berikut : jika button_keluar diklik maka delphi akan menjalankan code close; / keluar dari program.

berikut tampilan aplikasinya : pada saat di klik jawab maka muncuk teks pada edit jawab.

Share on Facebook

Share on Twitter

Share on Google+

Share on LinkedIn

"Jangan lupa ikuti saya disini untuk update post terbaru dari saya agar kamu tidak ketinggalan"