TEdit
atau seringkali disebut sebagai Edit dalam Delphi digunakan untuk membuat suatu
komponen input, namun komponen edit ini juga dapat digunakan sebagai komponen output.
Komponen TEdit dapat ditemukan di tab standard pada component pallete Delphi
 |
| Gambar 1. Komponen edit |
Terdapat
beberapa event yang sering digunakan pada komponen ini antara lain :
a. Event OnChange à Event ini akan berjalan ketika
kompoonen ini diubah isinya.
b. Event OnKeyPress à Event ini akan berjalan ketika ada
suatu tombol keyboard ditekan, dalam artian satu tombol (single press)
c. Event OnKeyDown à event ini akan berjalan ketika suatu
tombol kunci ditekan. Mirip dengan on key press hanya saja event ini dapat
menangkap kunci gabungan.
d. Event OnKeyUp à event ini akan berjalan ketika tombol
keyboard dilepaskan. Biasanya tombol yang digunakan merupakan tombol kunci
Untuk
memahami penggunaan komponen ini anda dapat mengikuti tutorial ini :
1. Buatlah aplikasi baru dari menu “File
– New - Application”
 |
| Gambar 2. Pembuatan Aplikasi Baru |
Dengan demikian maka dellphi akan
membuka jendela form kosong dan jendela unit code.
 |
| Gambar 3. Form Baru |
2. Tambahkan komponen edit ke dalam form
dengan ketentuan seperti berikut :
Komponen
|
Atribut
|
TEdit
|
Name : edt1
Text : ‘ini adalah contoh
penggunaan komponen edit’
|
TEdit
|
Name : edt2
Text : (kosong)
|
TEdit
|
Name : edt3
Text : (kosong)
|
TEdit
|
Name : edt4
Text : (kosong)
|
3. Lakukan double click pada komponen
edt2 kemudian tambahkan kode berikut
procedure TForm1.edt2Change(Sender:
TObject);
begin
//penggunaan komponen edit event onchange
edt3.Text := edt2.Text;
end;
4. Pilih komponen edt4 kemudian pada
object inspector tab event double click pada OnKeyPress.
 |
| Gambar 4. Tab event |
5. Tambahkan kode berikut
procedure TForm1.edt4KeyPress(Sender:
TObject; var Key: Char);
begin
if (Key = Chr(13)) then begin
edt4.Text := edt1.Text;
end;
end;
6. Jalankan aplikasi dengan klik menu
“Run - Run” atau menekan tombol F9. Jika anda berhasil maka anda akan
mendapatkan tampilan seperti berikut :
 |
| Gambar 5. Hasil running |
Cobalah menulis pada edt2 dan cobalah
pula untuk menekan tombol enter(return) pada edt4.
baca juga :
mengenal komponen TLabel Delphi
memahami kamus data dalam perancangan sistem
pengertian diagram arus data (DAD)
Sign up here with your email
1 komentar:
Write komentarNo more live link in this comments field
ReplyConversionConversion EmoticonEmoticon