Discussion :

[HumanTool]

Bonjour,
je cherche à faire que mes champs mot de passe n'affiche pas le caractères '*' mais le point noir (cf capture) quand on a un theme xp/vista activé.
Est ce un composant ? ou est ce que delphi le propose (#quelquechose) ?

[declencher]

Bonjour,

Il me semble que les points apparaissent en fonction du style xp. Il faut donc que tu déposes sur ta fiche le composant XPManifest.

[HumanTool]

c'est ce que j'ai fait mais rien ne se passe....

[slimjoe]

Bonjour!

Je n'ai pas la vraie réponse mais j'ai tout de même un truc à proposer :

1. Mets un composant TEdit sur ta fiche
2. Change la Font en Wingdings
3. Met la lettre "l" (un "L" minuscule) dans la propriété PasswordChar

Bon dev!

[anapurna]

salut

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Font.Name := 'Wingdings';
  Edit1.PasswordChar := 'l';
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Font.Charset := 2;  //SYMBOL_CHARSET
  Edit1.PasswordChar := 'l'; //ascii = 108
end;

une autre solution est de creer un decendant de TEdit et d'overrider
le create params de cet maniere
cet methode est a mon avis la seul bonne

Code :

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

1
2
3
4
5
procedure TPasswordEdit.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := Params.Style or ES_PASSWORD;
end;

ce qui permettra aussi de ne pas pouvoir recuperer le texte en clair
avec un simple message WM_GETTEXT


@+ Phil

[HumanTool]

Merci effectivement c'est efficace !
Dommage que l'on doive passer par de telles solutions et que cela ne soit pas prévu nativement.....