Arsip: bikin edit.text seperti tampilan password?

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

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

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

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

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

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

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;
more ...
- Pages:
- 1
- 2
reply |
Report Obsolete
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
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 5 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 13 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 13 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 13 years ago
Random Topic
- interface oracle & delphi
by BorlandMania in Lain-lain more 17 years ago - Tny ttg komponen edit??
by camp_sire in Tip n Trik Pemrograman more 17 years ago - pilih nilai terbersar???
by akudana in Tip n Trik Pemrograman more 15 years ago - Pencarian dengan DateTimePicker
by meehelmi in Reporting more 17 years ago - ngambil string pada suatu data
by putukaca in Tip n Trik Pemrograman more 18 years ago - bingung mo kasih judul apa ?
by flamade in MySQL more 18 years ago - komponen TSQLUpdate
by wati in FireBird more 16 years ago - Delphi on google [SEARCH !!, Before you Ask]
by eksant in OOT more 17 years ago - Membuat report di delphi ?
by jajang in Reporting more 17 years ago - menghitung hari
by alpard in Tip n Trik Pemrograman more 18 years ago