...show Windows XP Password Characters?

Author: Killuminati

Category: Misc

{ 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;




 

printed from
www.swissdelphicenter.ch
developers knowledge base