Menampilkan kotak dialog password
Bagaimana menampilkan dialog box password (kayak program WebLogin anda). Saya punya potongan program sbb :
Saya ingin membuat program yg mana program tersebut mempunyai fasilitas password. Jadi orang yg ingin menjalankan program tsb harus memasukkan passwordnya dulu (kayak program WebLogin anda).
Saya menggunakan registry utk menyimpan setting program. Jalannya program saya sbb :
- ambil data dr registry
- jika nilainya 1 maka tampilkan form utk memasukkan password
- jika password benar maka tampilkan form utamanya
Masalahnya, bagaimana cara menampilkan form utk memasukkan password tersebut. Saya coba menggunakan InputQuery, tapi karakter yg dituliskan tidak berbentuk ***** (bintang).
Atas jawabannya kami ucapkan terima kasih.
Jawaban
Anda bisa membuat form baru, khusus untuk inputan password, mudahnya gunakan wizard di delphi, File, New, Dialog, Password Dialog. Nah untuk menampilkan dari form utama anda caranya :
procedure Form1.Create(Sender: TObject);
begin
with PasswordDlg do
begin
ShowModal;
if ModalResult = mrOK then
if CheckPassword(Password.Text) then
begin
// Password benar
end else
// Terminate saja applikasi kita
PostMessage(Form1.Handle,WM_CLOSE,0,0);
end;
end;
Semoga membantu....
-----------------------------------------------------------
WE DO REMOTE PROGRAMMING PROJECT, C/S APPS, TCP/IP,
SERIAL COMM, CONVERTING APPS FROM D1-D6, ETC
PLEASE CONTACT ICQ# 2057150 FOR FURTHER INFO
-----------------------------------------------------------
Tidak ada komentar:
Posting Komentar