Index Konsultasi Delphi || Arsip Pertanyaan

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....