Discussion :

[ouiouioui]

Bonjour,
j'ai une appli, dans laquelle je change le caractère qui cache le mot de passe d'un TEdit avec un TTimer et lorsque je tape un mot de passe avec des Maj, je me retrouve avec ce message Windows qui se multiplie jusqu’à saturer les ressources PC



Ça vient de Windows ? On peut l'empêcher d'apparaitre ou y a-t-il y a un moyen d'effacer les anciens messages ? J'ai besoin de votre aide d'expert s'il vous plait.

J'avais développé ça sur XP à une époque où Windows ne nous avertissait pas pour les Majuscules…

Merci d'avance pour votre aide.

[SergioMaster]

je change le caractère qui cache le mot de passe d'un TEdit avec un TTimer

Mais pourquoi alors qu'il y a une propriété passwordchar faite pour ça !?

[ouiouioui]

Oui c'est ce que j'utilise :

Code :

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

1
2
3
4
5
Procedure TMain.TimerHideTimer(Sender: TObject);
Begin
  eData.PasswordChar := cCHARACTERS_TIMER_HIDE[Random(82)];
  eData.SelStart     := Length(eData.Text);
End;

[ShaiLeTroll]

Suffit d'initialiser le PasswordChar une seule fois ... pourquoi mettre un truc aléatoire, suffit de mettre * et Windows le transforme en rond

Même le InputQuery le gère avec une astuce, un caractère < 32 dans le prompt comme premier caractère provoque le * comme PasswordChar

Et changer le SelStart dans un Timer, la vache, la saisie doit être infame, ça doit bouger le curseur au mauvais moment


Modifier le PasswordChar provoque un EM_SETPASSWORDCHAR mais surtout un changement de style ES_PASSWORD, le contrôle est recréé à chaque fois

[Paul TOTH]

haha je connais ce bug

je l'ai rencontré sur un composant TEdit dérivé qui contenant un bouton (comme un TButtonedEdit), lequel bouton était utilisé pour affiche le mot de passe - comme on a souvent maintenant.

je crois que j'ai corrigé cela en modifiant le style Windows avant de changer PasswordChar

Code :

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

1
2
3
4
 
    var Style := GetWindowLong(EditPassword.Handle, GWL_STYLE) and (not ES_PASSWORD);
    SetWindowLong(EditPassword.Handle, GWL_STYLE, Style);
    EditPassword.PasswordChar := #0;

sinon en effet la popup de warning apparait en boucle quand la touche CapsLock est activée, c'est donc bien un bug Windows

[ShaiLeTroll]

Est-ce un bug de Windows qu'un Bouton à l'intérieur d'un Contrôle provoque la destruction de ce Contrôle ?
Pour ce cas, j'utilise un TSpeedButton à coté avec le Down et un ImageIndex qui affiche une image différente pour le mot pressé (visible) et relevé (masqué)

[Paul TOTH]

Est-ce un bug de Windows qu'un Bouton à l'intérieur d'un Contrôle provoque la destruction de ce Contrôle ?
Pour ce cas, j'utilise un TSpeedButton à coté avec le Down et un ImageIndex qui affiche une image différente pour le mot pressé (visible) et relevé (masqué)

en fait ça le fait aussi avec un SpeedButton (qui ne prend pas le focus contrairement à un TButton)

on pourrait dire que le bug vient de ce que la popup de notification n'est pas détruite quand on recrée le Handle

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.SpeedButton1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  SetCaptureControl(SpeedButton1);
  Edit1.PasswordChar := #0;
end;
 
procedure TForm1.SpeedButton1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Edit1.PasswordChar := '*';
  SetCaptureControl(nil);
end;

[ShaiLeTroll]

Je n'ai pas ce comportement de répétition du Hint, je peux cliquer comme un fou, ça se comporte tout à fait normalement
Et sinon, cela réaffiche le Hint au clic (OnEnter) mais dès que l'on tape au clavier, cela le cache

Code dfm :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
object btnPasswordView: TSpeedButton
  Left = 2
  Top = 70
  Width = 23
  Height = 22
  AllowAllUp = True
  GroupIndex = 1
  Glyph.Data = {...}
  NumGlyphs = 4
  OnClick = btnPasswordViewClick
end
object edMotPasse: TEdit
  Left = 112
  Top = 71
  Width = 524
  Height = 21
  PasswordChar = '*'
  TabOrder = 2
end

Code :

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

1
2
3
4
5
6
7
8
//------------------------------------------------------------------------------
procedure TxxxConfigEditorLoginForm.btnPasswordViewClick(Sender: TObject);
begin
  if btnPasswordView.Down then
    edMotPasse.PasswordChar := #0
  else
    edMotPasse.PasswordChar := '*';
end;

[Paul TOTH]

[ShaiLeTroll]

Amusant, dès que je déplace la fenêtre de login, cela ferme le hint ...
Le SpeedButton est en mode Toggle Up/Down et j'utilise OnClick, c'est un mode "permanent", je n'ai pas cette réapparition du panneau au mauvais endroit.
Le MouseDown/MouseUp, faut maintenir le bouton pour voir le mot de passe, je comprends l'idée mais cela semble pas ergonomique, je n'ai pas testé.
Melanger les deux, c'est pas un bon test, faut soit l'un soit l'autre pas les deux à mon avis.


Et le sujet initial traite d'un TTimer pour modifier PasswordChar de façon aléatoire, c'est donc encore un autre sujet, et là je ne pige pas du tout le but de faire ça.

Par curiosité, ajoute un second TEdit

[ShaiLeTroll]

Interessant, dans un projet neuf, même en mettant la fenêtre comme une seconde form modal, en bsDialog, en fsStayOnTop, avec le même CreateParams, je reproduis l'anomalie !
Et je note que c'est le Hint lorsque l'on affiche le mot de passe qui reste affiché alors que le hint quand on cache le mot de passe se comporte normalement.

Qu'est-ce que mon projet réel contient pour ne pas provoquer ce bug ?
Intrigant, ça demande que je cherche un peu plus !
J'ai déjà noté que je n'ai QUE le hint lorsque l'on cache le mot de passe, je n'ai pas de hint lorsque l'on affiche le mot de passe
J'ai aussi un AutoSelect qui se produit lors que l'on affiche le mot de passe, alors que sur le projet Neuf, le PasswordChar n'impacte pas la sélection.

J'ai trouvé !
Mon TEdit est dans un TPanel, cela change le comportement du AutoSelect et aussi quand s'affiche le Hint !
Paul Toth, met ton TEdit et TSpeedButton dans un même Panel pour voir

[Paul TOTH]

J'ai trouvé !
Mon TEdit est dans un TPanel, cela change le comportement du AutoSelect et aussi quand s'affiche le Hint !
Paul Toth, met ton TEdit et TSpeedButton dans un même Panel pour voir

En effet c'est délirant, il suffit de mettre le TEdit dans un TPanel (pas besoin d'y mettre le bouton) pour que ça fonctionne ^^

[ouiouioui]

Tous d'abord merci pour votre aide, vos deux solutions fonctionne.

J'ai trouvé !
Mon TEdit est dans un TPanel, cela change le comportement du AutoSelect et aussi quand s'affiche le Hint !
Paul Toth, met ton TEdit et TSpeedButton dans un même Panel pour voir

J'ai opté pour la solution du TPanel

Et le sujet initial traite d'un TTimer pour modifier PasswordChar de façon aléatoire, c'est donc encore un autre sujet, et là je ne pige pas du tout le but de faire ça.

Bon j'aurais préférer le garder pour moi c'est bête mais il m'arrive souvent d'avoir quelqu'un à coté de moi lorsque je tape mon passe, du coup il se focalise sur les caractères qui change et j'ai presque à chaque fois "Euh sa écrit n'importe quoi" parce que bizarrement je me suis déjà fait remballé lorsque j'ai demandé à des clients envahissant de détourner le regard. C'est vrai quoi c'est privé les mots de passe moi je fixe pas les clients quand il tapent le leurs, un peu de respect.

[pprem]

Bon j'aurais préférer le garder pour moi c'est bête mais il m'arrive souvent d'avoir quelqu'un à coté de moi lorsque je tape mon passe, du coup il se focalise sur les caractères qui change et j'ai presque à chaque fois "Euh sa écrit n'importe quoi" parce que bizarrement je me suis déjà fait remballé lorsque j'ai demandé à des clients envahissant de détourner le regard. C'est vrai quoi c'est privé les mots de passe moi je fixe pas les clients quand il tapent le leurs, un peu de respect.

tu peux mettre des "*" et un bouton d'affichage du mot de passe qui demande un CAPTCHA ou affiche n'importe quoi