Sunday, December 15, 2013
Input Box dengan Password Char di Delphi
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}
// Password Char (*) InputBox- Buat Sebuah Procedure di atas code Private
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;- Tambahkan Constanta diatas Code type
const- Tambahkan Sebuah Button Pada Form Anda Kemudian Letakan Code ini
InputBoxMessage = WM_USER + 200;
var- Selesai. Coba Jalankan Kemudian Klik Button Tersebut. Selamat Mencoba :)
pwd : string;
begin
// Request Password
PostMessage(Handle, InputBoxMessage, 0, 0);
pwd := InputBox('Password Request', 'Masukan Password Aplikasi', '');
end;
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment