IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Composants VCL Delphi Discussion :

controler plusieurs edit


Sujet :

Composants VCL Delphi

  1. #1
    Membre à l'essai
    Profil pro
    Inscrit en
    Avril 2005
    Messages
    26
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2005
    Messages : 26
    Points : 14
    Points
    14
    Par défaut controler plusieurs edit
    Bonjour,

    Bon demain c'est de nouveau la rentrée pour moi, donc j'en profite pour avancer dans mon programme....
    Je suis à la phase de finition, à savoir ici la controle des saisies dans les champs à remplir.
    J'aimerais empecher l'utilisateur de rentrer des caracteres indésirables (les lettres à la place de chiffre)...seulement voilà je cherche à faire un seul bou de code pour controler tous les edit en même temps. (car edit par edit c'est un peu long et pas tres élégant).
    J'ai un début d'idée mais niet ça ne marche pas
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
     
    procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
    var n2 : integer ;
        edit : Tedit ;
    begin
      for n2 := 1 to 12 do
      begin
        Edit:=TEdit(Form1.FindComponent('Edit'+IntToStr(n2)));
        if not (key in [#8,'0'..'9',DecimalSeparator,'+','-']) then key:=#0;
      end ;
    end;
    voilà merci

  2. #2
    Rédacteur
    Avatar de Pedro
    Profil pro
    Inscrit en
    Octobre 2003
    Messages
    5 411
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2003
    Messages : 5 411
    Points : 8 078
    Points
    8 078
    Par défaut
    Salut
    Il te suffit de récupérer le Sender et de le caster
    de cette façon :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
      Edit:=TEdit(Sender);
    Ceci dit, pour empêcher la saisie sur n'importe quel TEdit, tu n'a pas besoin de récupérer le Sender:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     
    procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
    begin
      if not (key in [#8,'0'..'9',DecimalSeparator,'+','-']) then
        key:=#0;
    end;
    Et tu assignes tous les OnKeyPress des TEdit à cette procédure
    Voila tout simplement

  3. #3
    Membre à l'essai
    Profil pro
    Inscrit en
    Avril 2005
    Messages
    26
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2005
    Messages : 26
    Points : 14
    Points
    14
    Par défaut
    j'ai pas compris la premiere méthode mais bon c pas grave la 2ieme en effet est évidende ! ça marche tres bien merci

  4. #4
    Rédacteur
    Avatar de Pedro
    Profil pro
    Inscrit en
    Octobre 2003
    Messages
    5 411
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2003
    Messages : 5 411
    Points : 8 078
    Points
    8 078
    Par défaut
    N'oublie pas le tag [Résolu]
    Outils de la discussion => Mettre résolu

Discussions similaires

  1. [Débutant] Controler plusieurs clips
    Par nico100 dans le forum Flash
    Réponses: 0
    Dernier message: 06/02/2008, 16h01
  2. POST à partir de plusieurs Edits
    Par andreditdd dans le forum Bases de données
    Réponses: 12
    Dernier message: 06/12/2007, 11h59
  3. tester la valeur de plusieur edits
    Par neuneu1 dans le forum Delphi
    Réponses: 16
    Dernier message: 19/05/2007, 11h30
  4. [débutant] D6 controle d'edits
    Par faenor dans le forum Delphi
    Réponses: 8
    Dernier message: 26/05/2006, 13h41
  5. Drag and Drop vers plusieurs Edit
    Par greg778 dans le forum Composants VCL
    Réponses: 2
    Dernier message: 30/05/2005, 09h50

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo