Mungkin Yang Anda Cari Ada di Sini

Senin, 04 Oktober 2010

Menampilkan kotak dialog password


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

Subscribe via email

Enter your email address:

Delivered by FeedBurner

Related Posts Plugin for WordPress, Blogger...
web metrics