Mega Code Archive

 

Categories / Delphi / Examples

 

Show windows xp password characters

{ 1. Set the font to Wingdings and then type on the PasswordChar := l; } procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Font.Name := 'Wingdings'; Edit1.PasswordChar := 'l'; end; { 2. Set the font Charset to 2 (Symbol_Charset) and then type on the PasswordChar := l; // ascii = 108 } procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Font.Charset := 2; //SYMBOL_CHARSET Edit1.PasswordChar := 'l'; //ascii = 108 end;