Cara Membuat ENTER DI TEdit (EDIT) Di Borland Delphi 7

Langkah pertama

• Pilih Komponent EDIT dari Page Standard

• Atur lah Letak Design Form dan tambahkan Komponen Label dari Page Standard

Note :
a. Buatlah Seperti gambar dibawah ini

• Kemudian klik properties pada Komponen Edit1 dan Double klik pada Onkeypress

Isi dengan Listing Program dibawah ini

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If Key=#13 then
Begin
Edit2.setfocus;
end;

• Kemudian klik properties pada Komponen Edit2 dan Double klik pada Onkeypress

Isi dengan Listing Program dibawah ini

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
If Key=#13 then
Begin
Edit3.setfocus;
end;

• Kemudian klik properties pada Komponen Edit3 dan Double klik pada Onkeypress

Isi dengan Listing Program dibawah ini

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
If Key=#13 then
Begin
Edit1.setfocus;
end;


Klik Ctrl+Shift+S Untuk Menyimpan Listing tersebut
Tekan F9 Untuk Running Program nya, Akan terlihat seperti tampilan Dibawah ini





Note : Tekan ENTER Pada KeyBoard Terus Menerus.. Maka Kursor Otomatis Akan berpindah dari edit 1 ke Edit 2 dan 3 dan seterusnya.

Fungsi : Fungsi ini memudahkan kita dalam berpindah kursor dengan kata lain memindahkan kursor TANPA bantuan Mouse dan Tombol TAB pada Keyboard.

Aplikasi Telah selesai “Selamat Mencoba”

Note : Aplikasi ini Bersifat Standart (Pemula),, sebagai bahan pembelajaran dalam studi Programing.

Posted in: Delphi