Discussion :

[seifrf]

Bonjour,

Je suis en train de créer une fiche pour entrer le nom d'utilisateur et le mot de passe. J'ai 2 Edit.
Ce que je souhaite faire quand je saisis un mot de passe <6 caractères et que je clique sur le bouton connexion, c'est que le Edit2.Text m’affiche un hint (' le mot de passe doit avoir au moins 6 caractères ').
Et merci !

[tourlourou]

Bonjour,
Il faudra donc loger le code dans l'événement OnClick du bouton connexion.
Pour obtenir la longueur du mot de passe saisi, il faut utiliser la fonction Length() sur la chaîne saisie.
Un simple test sur cette longueur permettra d'afficher le message.
Un ShowMessage() est certainement bien adapté, le Hint sur le Edit2 devant afficher '6 caractères minimum' lors du survol par la souris, pour informer en permanence, donc même avant la saisie.

[seifrf]

oui merci je vais essayer de faire comme ça

[seifrf]

j'ai fait tout merci et maintenant j'ai fait un contrôle de la saisie sur le Tedit lorsque je saisie et voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if ((key<'a')or(key>'z')) then
begin
edit1.ReadOnly := true;
ShowMessage ('Entrez un caractère');
end
else edit1.ReadOnly := false;
end;
 
end.

le problème quand je saisie au caractère faux et je veux le supprimer au clic du bouton clavier il m'affiche le message 'entrer un caractère'

[tourlourou]

C'est très bien de contrôler la validité d'une touche saisie.
L'événement OnKeyPress accepte justement le paramètre Key (touche frappée) comme variable afin de pouvoir la modifier si nécessaire (mettre en majuscule par exemple) ou l'annuler si invalide.
Le code suivant illustre ces mécanismes :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if ( Key in ['a'..'z'] ) then 
  Key := UpCase(Key); // mise en majuscule du caractère
 if not ( Key in ['A'..'Z'] ) then 
  Key := #0 ; // annule la saisie en rendant nul le caractère si non alphabétique majuscule
end;

[seifrf]

merci ton code et très utiles mais comment je fait si Ecrit par exemple 'adman' au lieu de 'admin' la touche retour du clavier pour supprimer ne marche pas

[tourlourou]

Tu as raison ; il suffit de multiplier les tests pour autoriser des touches supplémentaires, sur le modèle de la FAQ qui gère la touche BACK de code ASCII VK_BACK, correspondant au caractère #8.

[seifrf]

merci beaucoup tourlouro de ton aide mon problème et résolu grâce a vous je suis très reconnaissant de ton effort avec moi