Discussion :

[promenneur77]

bonjour,

je voudrait imposé 4 caractere dans un edit, j'ai reussi a bloquer a 4 caractere mais pas reussi a en obliger 4.
deplus je n'arrive pas non plus a impossé que des chiffres.
si moin de 4 caractere dans edit je souhaite que lorsque l'on clic sur le bouton ca ne face rien et que cela me dise ex: pas 4 chifre

[ero-sennin]

Salut,

Pour ce qui est de ton soucis pour ne rentrer que des chiffres, tu peux t'inspirer de l'exemple de la FAQ ou encore de cette discussion.

Ensuite, pour limiter la saisie de 4 caractères, il faut utiliser la propriété MaxLength du TEdit et la fixer à 4 dans ton cas.

Pour terminer, si tu veux afficher un message indiquant à l'utilisateur qu'il manque des chiffres, tu peux utiliser l'événement OnExit du TEdit :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if Length(Edit1.Text)<Edit1.MaxLength then
  begin
    ShowMessage('Il n''y a pas 4 chiffres');
    //Edit1.SetFocus; // Donne le focus au TEdit
    //Edit1.SelStart:=length(Edit1.Text); // Mets le cursur en fin du TEdit
  end;
end;

Avec tout ça, je pense que tu devrais t'en sortir (Décommente le code en commentaire pour voir ce que ça fait )
A+

[promenneur77]

je te remerci ca fesait un moment que je cherchais