Trik OnKey Press, Delphi 7

Baik, postingan kali ini saya akan memberikan sebuah trik OnKey press atau menyertakan fungsi key

(Exp : tekan enter)

Pada trik ini saya memberikan contoh dengan menggunakan key enter lebih jelasnya pahami penjelasan yang akan saya berikan dibawah,

Review : trik ini masih berkaitan dengan “trik log in database”   atau bisa disebut trik episode 3

Langsung saja

anggap anda sudah membuat project yang sudah saya jelaskan pada “trik log in database”.

Kemudian, pada form log in (FlogIn) double klik di OnKey Press (Events),

salin procedure TFLogIn.okClick, terapkan pada procedure FormKeyPress.OnKeyPress.

Selanjutnya, tambahkan source code dibawah ini

 if Key = #13 then

 begin

 Key := #0;

 PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);

Letakan souce code tersebut setalah begin dan sebelum DM.TAdmin.First;

Maksud source code diatas logikanya seperti ini, mula-mula key kosong (#0) dan jika tekan enter (kode enter : #13) maka log in diproses, dan jika benar maka lanjutkan

Kemudian tambahakan juga source code dibawah ini, letakan pada events oncrate (double click events oncreate Tflogin)..

keyPreview := true;


maksudnya, tombol keyboard dibenarkan untuk digunakan,.

Selesai.

Semoga bermanfa’at,,“aza aza fighting!!”,,

Catatan : untuk postingan trik delphi pada blog ini merupakan sebuah project yang nantinya akan membentuk sebuah program sederhana.

Postingan Terkait Lainnya :

Widget by fauzieuy.blogspot.Com