Discussion :

[lila23]

bonjour tout le monde,
voila j'ai un de mes champs qui doit contenir exatement 12caractéres j'ai fait un masque (maskedit) bon ca marche avec ca sauf que j'aimerais grace a un maskedit ou avec le edit directement je ne c'est pas que l'utilisateur tape le renseignement que quand il passe au suivant je calcul la taille et si ce n'est pas égale a 12 je lui affiche un message(showmessage) et que je ne lui donne pas la main pour écrire sur le champ suivant juska ce qu'il corrige l'erreur

merci énormément

[ero-sennin]

Salut,

Tu peux essayer une chose :
Fixe la propriété MaxLength du TMaskEdit à 12, puis, dans l'événement OnExit du TMaskEdit en question, tu peux mettre ceci (j'ai pas Delphi sous la main, donc ça peut comporter des erreurs...)

Code :

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

1
2
3
4
5
6
if(Length(MaskEdit1.Text) < MaskEdit1.MaxLength)then
begin
  ShowMessage('Vous devez impérativement mettre 12 caractères');
  MaskEdit.SetFocus();
  MaskEdit.SelStart = Length(MaskEdit1.Text);
end;

En espérant t'avoir aidé
A+

[Aos]

Utilise l'événement onExit de ton TEdit.
Sur cet événement, tu mets ton compteur (if length(monEdit.text) <> 12) blablablabla....

----

Ah ben voila, j'ai repondu en meme temps que ero
Tu as les 2 solutions, soit avec le maskEdit, soit avec un OnExit.

a+
Amine

[lila23]

j'ai essayé comme ceci ca marche pas avec que le edit

Code :

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

1
2
3
4
5
6
7
8
9
 
var long:integer;
begin
long:=edit12.GetTextLen;
if (long=12) then maskedit4.Text // c'est le champs suivan a remplir
else
ShowMessage('Vous devez impérativement mettre 12 caractères');
edit12.SetFocus();
end;

[ero-sennin]

Le code que je t'ai donné ne fonctionne pas ?
As-tu mis MaxLength à 12 ? Si non, il vaudrait mieux le faire car sinon, tu pourrais rentrer plus de 12 caractères, et là, ça ne colle pas à ta demande (à moins que ce soit 12 caractères minimum)...

Je préfère tout de même ma solution dans le sens où l'on contrôle la longueur maximale du TEdit, et qu'en plus, si jamais tu veux modifier la longueur (par exemple de 12 à 16), tu n'as juste à changer la propriété MaxLength.

Par contre, je ne comprends pas le test ... Si ça vaut 12, tu veux mettre le focus au champs suivant ? De plus tu avais oublier d'encadrer ton instruction (le else) par un begin end
Si oui, fait comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
var 
  long:integer;
begin
  long:=edit12.GetTextLen;
  if (long=12) then 
    maskedit4.SetFocus()// c'est le champs suivan a remplir
  else
  begin
    ShowMessage('Vous devez impérativement mettre 12 caractères');
    edit12.SetFocus();
  end;
end;

En espérant t'avoir aidé

[Aos]

oui ero, je préfére aussi ta solution
Mais en faite, on a répondu en même temps, moi avec l'une, toi avec
l'autre

M'enfin, normalement, les 2 fonctionnent sans problème

[ero-sennin]

oui ero, je préfére aussi ta solution
Mais en faite, on a répondu en même temps, moi avec l'une, toi avec
l'autre

M'enfin, normalement, les 2 fonctionnent sans problème

En fait, ta solution reprends la mienne car je combine le OnExit avec le MaxLength, et le Length du TEdit (voir mon tout premier post).
Sinon, la remarque était plus pour notre camarade lila23

Après, ce n'est qu'une façon de faire parmi tant d'autres ... Attendons la réponse de lila23