Arsip: bikin edit.text seperti tampilan password?

 
user image
more 18 years ago

adit4it

hello Guyz...... Aku lagi iseng-iseng bikin program login dengan DB. ga ada yg salah dengan coding-nya. Tapi tampilan edit.text yang akan diisi password harusnya memiliki tampilan ada bintang-nya * seperti ada enkripnya gitu.... padahal tampilan-nya aja....... Aku udah nyoba cari/embedscript di Event yang berkaitan dengan itu, namun ga berhasil Ada yg udah pernah coba namun tidak merubah sistem input edit.text-nya. Thanks Regards......
user image
more 18 years ago

ivan

Coba pada component edit nya ubah properties PasswordChar menjadi *
user image
more 18 years ago

adit4it

ohhh... iya... ternyata itu yg harus diubah.... Jadi malu....... Thakns : ivan.....
user image
more 18 years ago

ivan

Gak usah malu, yang penting terus berusaha :lol:
user image
more 18 years ago

mas_kofa

bagaimana ya.....kalo..setiap penekanan satu key bisa tampil 2 karakter bintang.........???? atau karakter yang ditampilkan bervariasi....(misal karakter-1 *, karakter-2 %, dst..) ???
user image
more 18 years ago

putukaca

saya ada trik lagi supaya kelihatan bukan * tapi derupa dot tebal. caranya (pada TEdit) 1. set password char dengan l (huruf l kecil bukan L) 2. pilih font (kalo ga salah) wingdings 3. set font style jadi bold semoga berguna
user image
more 18 years ago

ksatria_77

pada editbox propertinya passwordchar kan defaultnya#0 nah kita bisa menggantinya dari#0- #255
user image
more 18 years ago

mas_kofa

@ksatria_77 hasilnya tetap gak bervariasi..................cuman satu tipe aja..........
user image
more 18 years ago

surip

mesti kasih tambahan coding di onKeyPress ato gak onKeyDown, enkripsi dan deskripsi... coba kembangkan coding sederharna berikut : procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in [#13,#8]) then begin password:=password+key; Edit1.Text:=edit1.Text+chr(ord(key)+1); end; if key=#13 then begin ShowMessage(password); Edit1.Text:=''; password:=''; end; end; procedure TForm1.FormCreate(Sender: TObject); begin password:=''; end;
user image
more 18 years ago

surip

:wink: :oops: :P :P :) :shock: :D
more ...
  • Pages:
  • 1
  • 2
Share to

AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now: https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com