Membuat Password Dialog Delphi

Delphi Password Dialog

Salam sobat blogger semoga diberi kesehatan selalu, Hai sobat saya akan sedikit berbagi tutorial sederhana mengenai pemrograman berbasis bahasa pascal menggunakan delphi7,

buat teman-teman Pemrograman senior maupun newbie seperti saya ini siapa sih yang tidak mengenal dengan salah satu aplikasi program builder yang satu ini,

salah satu aplikasi yang sempat jaya dan boming pada masa kejayaanya hingga sempat beralih kepemilikin dan saat ini di akusisi oleh embarcadero dengan versi terbaru RAD STUDIO DXE 10.2 TOKYO,

Baca Juga Ulasan Mengenai : Review RAD Studio 10.1 Berlin Update 2

Mungkin cukup sekian ulasannya singkat delphi 7 yah sobat, Untuk artikel kali ini saya akan membagikan tutorial bagamana cara membuat password dialog dengan delphi,

kita bisa menggunakan fungsi ini untuk digunakan ketika sobat membuat aplikasi dan membutuhkan eksekusi fungsi yang bisa dikatakan fatal dan tidak semua pengguna diberi ijin untuk mengeksekusi menu tertentu,

dalam contoh ketika pada sebuah aplikasi terdapat tombol hapus data akan tetapi kita ingin melindungi tombol tersebut menggunakan password eksekusinya, Cukup sekian penjelasan fungsinya sekarang kita lanjut ke tutorialnya.

Pertama-tama buka aplikasi aplikasi delphi sobat untuk versi delphi bebas

1. Buat sebuh form aplikasi baru.
2. Satu Buah ( Label ) bebas dikasih nama apa.
3. Satu Buah ( Edit1 ) Kasih nama ( Edit1 )
4. Satu Buah ( Button1 ) Kasih Nama ( Button1 ) Set Enable > False

Contoh Lihat Gambar :

Form Password Dialog

Lalu tambahkan kode definisi konstanta dibawah tepat diatas deklarasi Type

[
const
OKFPasDialog = WM_USER + 200;
]

Selanjutnya buat procedure baru letakan kode dibawah pada private deklarasi

[
procedure OKFSetPassword(var Msg: TMessage); message OKFPasDialog;
]

Sesudah itu fungsikan procedure di atas dengan meletakan kode dibawah ini tepat di bawah {$R *.dfm}

[
procedure TFOKFSOFT.OKFSetPassword(var Msg: TMessage);
var
PassForm, PassEdit, PassButton: HWND;
begin
PassForm := Screen.Forms[0].Handle;
if (PassForm <> 0) then
begin
PassEdit := FindWindowEx(PassForm, 0, 'TEdit', nil);
SendMessage(PassEdit, EM_SETPASSWORDCHAR, Ord('*'), 0);
end;
end;
]

Jika sudah lalu sobat kilik 2x Button1 dan masukan kode dibawah ini

[
PostMessage(Handle, OKFPasDialog, 0, 0);
PassString := InputBox('Sandi Konfirmasi', 'Masukan Sandi Eksekusi :', '');
if PassString = '123' then
begin
Edit1.Enabled:=True;
end else
begin
ShowMessage('Sandi Yang Anda Masukan Tidak Sesuai');
Edit1.Enabled:=False;
end;
]

Jangan lupa tambahkan variabel pada button1 ( Var PassString:string; ) tepat di atas kode Begin, Dan selesai sudah tinggal tes RUN untuk penampakan lihat gambar paling atas.

Gampang dan singkat kan sobat hehehe, Iya ini kan tutorial singkat dan juga simpel sobat bisa kembangkan sendiri biar lebih oke :), Dan bisa dipergunakan untuk projek aplikasi besar sobat.

Untuk sobat yang ingin langsung mencoba dan ingin langsung berangkat ke source codenya sudah saya sediakan link dibawah ini silahkan di unduh dan di kembangkan hehehehe.

Download Password Dialog Delphi Disini

Sekian dulu ya sobat untuk tutorial mengenai cara membuat Password Dialog Dengan Delphi dan semoga saya berharap untuk artikel singkat ini bisa bermanfaat buat sobat semua.
Dan saya ucapkan trimakasih untuk sobat bloger, Wasallam :)