Menampilkan Teks Pada Edit Box – Delphi 7

Pertama Design Form Sebagai Berikut :

Ubah Properties Name Setiap Object Sebagai Berikut :

Berikut 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.

semoga bermanfaat :). klik disini