Di bagian pertama kita sudah membuat form login seperti ini. Sekarang mari kita coba tambahkan komponen Tlabel, TEdit dan TButton ke dalam form1 agar benar-benar menjadi sebuah login form yang kita inginkan. Atur tata letaknya menjadi seperti ini.
Klik form1 dan ubah nilai properties KeyPreview menjadi True. Properties tersebut berguna agar form1 dapat menerima keystroke dari user. Apa maksud dari keystroke diatas ? Maksudnya adalah kita telah menambahkan button Close ke dalam form1 dan di caption button kita telah menuliskan "Esc - Close". Kita ingin ketika program tersebut dijalankan, nantinya user memiliki ability untuk menutup form1 tersebut dengan cara menekan tombol Esc di keyboard.
Merubah character password untuk kotak isian password
Untuk merubah character password agar tidak bisa terbaca oleh orang lain sangatlah penting. Jika anda tidak memperdulikan hal ini, bisa jadi orang lain akan menganggap bahwa aplikasi yang anda buat tidak profesional. Lalu bagaimana cara merubahnya ? Caranya sangatlah sederhana. Klik komponen TEdit yang anda gunakan untuk kotak isian password diatas. Lalu ubahlah nilai properties PasswordChar dari komponen tersebut menjadi *. Jika anda ingin menggantinya dengan character lain boleh-boleh saja.
Merubah properties Name untuk setiap komponen atau object
Sebelum kita melangkah lebih jauh ke tahap pengkodean / coding, biasakanlah untuk memberikan nama pada properties Name dari masing-masing object yang anda gunakan. Mengapa demikian ? Karena hal ini akan sangat membantu anda nantinya dalam mengingat dan mengenali setiap object yang ada di dalam form, module, report, dll di aplikasi anda. Yuk langsung saja kita berikan nama yang unik ke setiap object.
Disini kita hanya akan berikan nama untuk object yang akan berhubungan langsung dengan coding kita nanti.
- Name TForm1 : Form1
- Name TEdit user name : TxtUserName
- Name TEdit password : TxtPassword
- Name TButton login : BtnLogin
- Name TButton : BtnCancel
Jika sudah selesai, kita akan coba melakukan coding yang sederhana. Namun sebelum itu, saya akan jelaskan sedikit mengenai Event. Di dalam bahasa pemrograman berorientasi object, setiap komponen tidak hanya memiliki atribut/properties. Namun juga memiliki event seperti Onclick, OnDblClick, OnMouseMove, OnCreate, dll. Event click dan double click biasanya digunakan pada komponen TButton.
Sekarang cobalah double click komponen TButton untuk BtnCancel. Jika sudah sisipkan coding "application.Terminate;" seperti gambar dibawah ini dan jalankan aplikasinya dengan cara menekan tombol F9. Jika form1 sudah tampil, cobalah untuk klik button close atau tekan tombol esc.
Wahh..form tersebut berhasil ditutup ketika anda menekan button close. Tapi tidak berhasil ketika anda menekan button esc. Sekarang, cobalah untuk menambahkan sedikit coding lagi.
Tips penting !
Anda tidak perlu mengetikkan semua coding yang ada diatas ya..karena sebenarnya yang mesti anda ketikkan hanyalah "if key = #27 then application.terminate;". Lalu bagian procedure eventnya bagaimana ? Caranya sangat mudah. Klik object form1. Di bagian Object Inspector di sebelah kiri layar IDE delphi xe anda terdapat 2 tab. Yaitu properties dan events.
Klik tab events, lalu pilih event FormKeyPress. Silahkan double click pada dropdown di sebelah area even tersebut. Hasilnya menjadi seperti ini.
Nah...sisipkanlah coding tadi diantara tag begin dan end yang ada didalam procedure TForm1.FormKeyPress di atas. Hasil akhirnya coding anda akan menjadi seperti ini.
Jalankan kembali aplikasinya. Sekarang apabila anda klik button close atau tekan tombol esc aplikasinya sudah berhasil menutup bukan ?
Tips bagaimana cara berpindah ke area kode delphi dan area design delphi
[caption id="attachment_445" align="alignnone" width="831"] Klik tab Code untuk menampilkan area kode[/caption]
[caption id="attachment_447" align="aligncenter" width="480"] Klik tab Design untuk menampilkan area desain[/caption]
Happy coding :)
https://www.youtube.com/watch?v=dAn4uUo5IDI
https://www.youtube.com/watch?v=-pcu0lPkkL4
https://www.youtube.com/watch?v=Q6UVd7ZV_OA
https://www.youtube.com/watch?v=TLD5BJCKnSI
Comments
Post a Comment