Hello Sabine, Hello Derek (How are you ?)
In the same genre, I did like this (a long time ago).
But Derek's method is faster.:
This is my snippet :
procedure frm_Saisie_Image6_OnClick (Sender: TObject); // On affiche le mot de passe en clair
begin
frm_Saisie.Image5.Visible := False;
frm_Saisie.Image6.Visible := True;
frm_Saisie.Image6.Left := frm_Saisie.Image5.Left;
frm_Saisie.Image6.Top := frm_Saisie.Image5.Top;
frm_Saisie.Edit4.PasswordChar := #0;
frm_Saisie.Image5.Visible := True;
frm_Saisie.Image6.Visible := False;
end;
procedure frm_Saisie_Image5_OnClick (Sender: TObject); // On masque le mot de passe
begin
frm_Saisie.Image5.Visible := False;
frm_Saisie.Image6.Visible := True;
frm_Saisie.Edit4.PasswordChar := '*';
end;
procedure frm_Saisie_OnShow (Sender: TObject; Action: string);
begin
frm_Saisie.Image5.Visible := False;
frm_Saisie.Image6.Visible := True;
frm_Saisie.Image5.Left := frm_Saisie.Image6.Left;
frm_Saisie.Image5.Top := frm_Saisie.Image6.Top;
frm_Saisie.Edit1.SetFocus;
end;
See attachment
JB