Discussion :

[azzazzelleio]

Bonjour .... je cherche comment programmer le bouton droit du composant buttonededit a fin qu'il affiche le mot de passe lors du clique et quand je lâche le bouton le mot de passe ce crypte

j'ai utiliser cet instruction dans l’événement right button ( buttonededit2.passwordchar := #0; ) mais lors du clique il s'affiche mais il reste afficher ..... je voulez utiliser un if mais je ne sais pas avec quelle procédure ou fonction pour la condition

[mistercactus]

Bonjour Azzazzelleio,

Utilise plutôt les événements OnMouseDown et OnMouseUp. Dans OnMouseDown, affiche le mot de passe si c'est un clic droit, et fais le contraire dans OnMouseUp !

Sinon, tu pourrais faire la même chose avec les événements OnMouseEnter et OnMouseLeave, en affichant le mot de passe lorsque la souris est par-dessus le bouton.

[ALWEBER]

Bonjour Azzazzelleio,

Utilise plutôt les événements OnMouseDown et OnMouseUp. Dans OnMouseDown, affiche le mot de passe si c'est un clic droit, et fais le contraire dans OnMouseUp !

Sinon, tu pourrais faire la même chose avec les événements OnMouseEnter et OnMouseLeave, en affichant le mot de passe lorsque la souris est par-dessus le bouton.

en complément si ton objet est de type TEdit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if mbRight = Button then
    Edit1.PasswordChar := #0;
end;
 
procedure TForm1.Edit1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Edit1.PasswordChar := '*';
end;

[SergioMaster]

Bonjour, soyez précis dans vos demandes, plutôt que de mettre une image j'aurais préférés lire le composant VCL TButtonedEdit,

[Edit]ALWEBER comme moi-même sommes partis sur un TEdit, (à vrai dire je suis même passé par la case FMX)

Ce qui se fait sans une ligne de code en FMX devra se faire en deux évènements (pour un même comportement) en VCL

bouton séparés du TEdit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm71.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Edit1.PasswordChar:=#0;
end;
 
procedure TForm71.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Edit1.PasswordChar:='*';
end;

ou, mieux ?

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm71.Button1MouseEnter(Sender: TObject);
begin
Edit1.PasswordChar:=#0;
end;
 
procedure TForm71.Button1MouseLeave(Sender: TObject);
begin
Edit1.PasswordChar:='*';
end;

pour répondre à cette question

j'ai utilisé cette instruction dans l’événement right button buttonededit2.passwordchar := #0; mais lors du clique il s'affiche mais il reste afficher

pour un TButtonedEdit il faudra passer par deux clics

Code :

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

1
2
3
4
5
6
procedure TForm71.ButtonedEdit1RightButtonClick(Sender: TObject);
begin
if ButtonedEdit1.PasswordChar=#0
  then ButtonedEdit1.PasswordChar:='*'
  else ButtonedEdit1.PasswordChar:=#0;
end;

@mistercactus malheureusement pour les évènements cités il faut connaître les positions des boutons, en théorie ce serait possible
pour les évènements OnMouseDown et OnMouseUp c'est faisable il faudrait calculer le rectangle et vérifier si le point aux coordonnées X,Y est contenu dedans
pour les évènements OnMouseEnter et OnMouseLeave il faut, en plus, capturer la position de la souris
en pratique non, car les évènements ne sont pas capturés dans les "zones bouton" (facile à vérifier avec un showmessage)

Dans les deux cas on complique

[mistercactus]

@SergioMaster effectivement, j'ai directement testé avec un TEdit, je n'avais pas vu que ça ne fonctionnait pas de la même manière avec un TButtonedEdit !