Beranda » Algoritma » Komponen Edit

Komponen Edit

Selamat Datang

بِسْمِاللَّهِ الرَّحْمَنِ الرَّحِيمِ

Hai sahabat ... Selamat datang di Wisnurat's blog. Sedikit tulisan dan komentar yang mungkin asal-asalan, tapi mudah - mudahan deh bisa bermanfaat. Sebagai salam silaturahmi dengan senang hati kalau bisa tukaran link. Siapa tahu temen-teman yang lain juga ingin mampir ke blog sahabat. Terimakasih telah berkunjung. Jangan lupa mampir lagi ya... :)

Semua tulisan pada blog ini juga diposting pada blog okeguru.com

Masukkan alamat e-mail Anda untuk berlangganan blog ini dan menerima pemberitahuan tulisan-tulisan baru melalui email.

Bergabunglah dengan 13 pengikut lainnya

Blog Stats

  • 201,058 hits

Tamu

free counters

Traffic

Google PageRank Checker

MDL-02

Pendahuluan

Komponen Edit digunakan untuk media input dan output data text. Walaupun data tersebut berbentuk angka, maka supaya dapat ditampilkan melalui komponen Edit data tersebut harus dikonversi ke data teks terlebih dahulu. Secara default komponen ini bersifat OnChange, artinya apabila terjadi perubahan pada isi teks pada komponen Edit maka sintak program yang disisipkan akan dieksekusi.

Sekarang akan dibuat program dengan 3 komponen button dan 2 komponen Edit yang apabila Button1 diklik akan tampil teks pada komponen Edit1 dan Edit2 teks ”my first program” dan “its simple”. Apabila Button2 diklik maka teks yang ada pada Edit1 dan Edit2 akan hilang. Button3 digunakan untuk tombol keluar dari program.

Langkah kerja:

1. Letakkan 2 komponen Edit dan 3 komponen Button pada komponen Form1, seperti berikut ini !

objekbutton.jpeg

2. Klik dua kali pada Button1 dan ketik list program berkut ini !

procedure TForm1.Button1Click(Sender: TObject);

begin

Edit1.Text:=’my first program’;

Edit2.Text:=’its simple’;

end;

3. Klik dua kali pada Button2 dan ketik list program berkut ini !

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Text:=”; Edit2.Text:=”;

end;

4. Klik dua kali pada Button3 dan ketik list program berkut ini !

procedure TForm1.Button3Click(Sender: TObject);

begin

application.Terminate;

end;

5. Jalan program tersebut dengan menekan tombol F9 pada keyboar atau klik Run à Run pada menu bar.

Penjelasan listing program:

Edit1.Text:=’my first program’;

Edit2.Text:=’its simple’;

Artinya properties Text dari komponen Edit1 diberikan data my first program sama halnya dengan komponen Edit2.

Edit1.Text:=”; Edit2.Text:=”;

Artinya properties Text dari komponen Edit1 dan Edit2 diberikan data teks yang kosong.

Karena list program tersebut disimpan pada komponen Button maka perubahan tampilan visual pada komponen Edit akan terlihat ketika komponen Button di-klik.

Tugas:

1. Double klik pada komponen Edit1 kemudian ketik Button1.Caption:=’Tombol1’; lakukan hal yang sama pada komponen Edit2 kemudian ketik Button2.Caption:=’Tombol1’; jalankan program kemudian ketikkan teks apa saja pada Edit1 dan Edit2. Buat kesimpulan dari percobaan tersebut!

2. Tambahkan listing program pada program di atas sehingga apabila diklik Button1 warna latar Edit1 dan Edit2 menjadi kuning dan ketika diklik Button2 warna latar Edit2 dn Edit2 menjadi merah.


4 Komentar

  1. John mengatakan:

    good article!

  2. Abee mengatakan:

    bang artikelnya bagus bangett, sangat membantu aku yang lagi belajar delphi, kebetulan lagi ada tugas dari dosen juga…

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Selamat Datang

بِسْمِاللَّهِ الرَّحْمَنِ الرَّحِيمِ

Hai sahabat ... Selamat datang di Wisnurat's blog. Sedikit tulisan dan komentar yang mungkin asal-asalan, tapi mudah - mudahan deh bisa bermanfaat. Sebagai salam silaturahmi dengan senang hati kalau bisa tukaran link. Siapa tahu temen-teman yang lain juga ingin mampir ke blog sahabat. Terimakasih telah berkunjung. Jangan lupa mampir lagi ya... :)

Semua tulisan pada blog ini juga diposting pada blog okeguru.com

Masukkan alamat e-mail Anda untuk berlangganan blog ini dan menerima pemberitahuan tulisan-tulisan baru melalui email.

Bergabunglah dengan 13 pengikut lainnya

%d blogger menyukai ini: