Sobat Pasti Tahu kan InputBox ? Itu yang kayak gambar diatas. mungkin
anda sudah sering menggunakannya dalam membuat aplikasi bukan ? Entah
dalam proses pencarian data atau semacamnya. Kalau Saya sendiri sering
memanfaatkannya untuk prosesn pencarian data. :)
Sebenarnya bagus juga kalau kita menerapkan Inputbox ini untuk Request
Password pada User. Jadi Pada Program yang kita buat, sebagia Utilitas
kita batasi Hak Aksesnya. Jika User ingin mengakses Utilitas tersebut
maka dia harus menginputkan password terlebih dahulu (Lihat gambar
diatas). Ide Ini Muncul ketika saya membuat sebuah Aplikasi Tahun Lalu.
bagaimana ? tertarik untuk mencobanya ? Berikut langkahnya
- Jalankan Delphi Anda.
- Letakan Code Berikut dibawah {$R *.dfm}
- Buat Sebuah Procedure di atas code Private
- Tambahkan Constanta diatas Code type
- Tambahkan Sebuah Button Pada Form Anda Kemudian Letakan Code ini
- Selesai. Coba Jalankan Kemudian Klik Button Tersebut. Selamat Mencoba :)
// Password Char (*) InputBox procedure TForm1.InputBoxSetPasswordChar(var Msg: TMessage); var hInputForm, hEdit: HWND; begin hInputForm := Screen.Forms[0].Handle; if (hInputForm <> 0) then begin hEdit := FindWindowEx(hInputForm, 0, 'TEdit', nil); SendMessage(hEdit, EM_SETPASSWORDCHAR, Ord('*'), 0); end; end;
procedure InputBoxSetPasswordChar(var Msg: TMessage); message InputBoxMessage;
const InputBoxMessage = WM_USER + 200;
var pwd : string; begin // Request Password PostMessage(Handle, InputBoxMessage, 0, 0); pwd := InputBox('Password Request', 'Masukan Password Aplikasi', ''); end;
0 Komentar untuk "Input Box dengan Password Char di Delphi"