Discussion :

[z4k4r14]

Salut tout le monde,
Comment utiliser le caractère ● (disque noir) dans la propriété PasswordChar de TEdit???
J'ai essayé de faire copier coller mais il se transforme en caractère ?
merciiiiiii d'avance

[archonte]

Dans l'éditeur mettre #149 dans la propriété PasswordChar

[Kyrénoa]

L Z4k4r14 e point ● est automatique sous XP\Seven si l application a ete compile avec delphi 2010 a XE2, il suffit de mettre * dans PasswordChar comme avant et cela affiche ●

cela depend de la version de Delphi et de la font
certaines fontes comme MS sans Serif ne propose pas ce caractere, alors que Tahoma le gere
avec MS sans Serif, cela devrait afficher un ? ou un | epais
avec Tahoma, le ALT+0149 correspond au caractère unicode 0x2022
sous Ansi, cela donne un ? lors du copier-coller, sous Unicode, cela devrait fonctionner

lors du passage d une version ansi a une version unicode, les TEdit dont on a changer la propriete Font supporte mal la transition, il faut retirer la font pour reprendre la valeur par defaut
ne pas non plus mettre CharCase en ecUpperCase, si cela fonctionne en Ansi, cela pose probleme en Unicode


EM_SETPASSWORDCHAR :

Windows XP: If an edit control is from user32.dll, an asterisk is the default character for the ES_PASSWORD style. However, if an edit control is from comctl32.dll version 6, a black circle is the default character for the ES_PASSWORD style. Note that comctl32.dll version 6 is not redistributable but is included with Windows XP or later. To use comctl32.dll version 6, specify it in a manifest. For more information on manifests, see Enabling Visual Styles.

Si les themes sont actifs, Delphi n envoie pas de EM_SETPASSWORDCHAR et utilise uniquement ES_PASSWORD ce qui permet d avoir les ● noir sous XP et vert sous Seven

editer : il faut savoir que le PasswordChar est tres facile a desactiver de lexterieur dans une application Delphi
un programme peut surveiller les messages d activation de fenetre via un hook et chercher les TEdit ou Edit via FindWindow, puis envoyer ce message

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SendMessage(StrToInt(Edit1.Text), EM_SETPASSWORDCHAR, 0, 0);

des que l on clic de nouveau dans ce TEdit, le mot de passe s affiche en clair !