Problème avec EditMask Delphi 7

Bonjour,
Problème avec EditMask Delphi 7. ...!00\ 00\ 00\ 00\ 00;1;_ (Numéro de téléphone)
Lorsque je saisi une date, que je veux effacer suite à une erreur et quitter le DBEdit, j ' ai un message d ' erreur "Valeur d'entrée incorrecte....

Est ce que quelqu'un sait comment résoudre ce problème?

D'avance merci

Codial

Bonjour,

Ce qu'il te faut c'est intercepté le message d'erreur provoqué par ton editmask à la sortie, et là en fait ce que tu veux...Je sais que le composant TApplicationEvent peux faire ça, mais pense peut-être simplement à un try...Exept;
Et surtout décoche l'option du Débugger si tu ne veux pas voir les messages d'erreur.

@+.

Bonjour,

une précision STP, concrètement comment je peux intercepter l'erreur et dans quel évènement?

D'avance merci, en ce moment je bloque là-dessus!!

Cordialement

Codial

Désolé mais je n'emploi jamais de MaskEdit, je préfère gérer mes propres exeptions, avec mes propres vérifications.

Essaye ça (non garantie):
Pose un TApplicationEvent sur ta forme et code:

Code:

---

1 2 3 4 5 6 7 8 9 10

try procedure TForm1.ApplicationEvents1Exception(Sender: TObject; E: Exception); begin if E is EDBEditError then (* annuler la saisie *) maskedit.mask := ''; // c'est pas la bonne commande mais le but est d'annulé ton mask, ke tu réactivera sur le on enter de ton maskedit; maskedit.text := ''; form.setfocus; // donner le focus a ta forme end;

---

Après ce que tu code dans l'exception peut surement être plus professionnel et mieux adapter à tes besoins.


@+.

Bonjour,

merci de bien vouloir prendre sur ton temps.
En fait ce ne sont pas maskEdit que j'ai, j'ai affecté à certains champs d'une table un editMask.
Cet après midi en cherchant j'ai bien mis un TApplicationEvent sur ma form et je suis arrivé à écrire:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

procedure TSai_Clients.ApplicationEvents1Exception(Sender: TObject; E: Exception); begin if E is EDBEditError then if trim(dbedit5.Text)='' then DM.tblClientsTel1_Client.text:= ' '; if trim(dbedit16.Text)='' then DM.tblClientsTel2_Client.Text :=' '; if trim(dbedit6.Text)='' then DM.tblClientsGsm1_Client.Text:=' '; if trim(dbedit17.Text)='' then DM.tblClientsGsm2_Client.Text:=' '; if trim(dbedit19.Text)='' then DM.tblClientsFax_Client.Text:=' '; Sai_Clients.setfocus; end;

---

Celà effectivement lève l'exception mais le problème quand je vide un DBEdit il faut que je clique deux fois sur un bouton ok pour enregitrer et fermer le form.

En effet, quand avec la touche TAB je veux sortir du DBEdit, il redonne le focus à tout le mask (même si j'enlève le mask, il ne sort pas du DBEDit) et c'est seulement après avoir appuyé une deuxième fois sur cette touche que le curseur sort du DBEdit.

Il n'y a pas une solution plus propre ?

D'avance merci

Codial

Salut

Est-ce que le problème ne viendrait pas tout simplement du masque ?

Citation:

---

Envoyé par aide D6

0 Ce caractère exige un caractère numérique à cette position.
9 Ce caractère autorise un caractère numérique à cette position, mais ne l'exige pas.

---

En remplaçant les 0 par des 9, je pense que ça pourrait régler le pb...

Si le TEditMask perd le focus alors que tous les chiffres ne sont pas saisis, il n'y a pas d'erreurs... ;)
Alors que des zéros déclenchent une EDBEditError :mrgreen:

Bonjour,

OutOfTange merci pour cette réponse. Effectivement en mettant des 9 je n'ai plus d'erreur.

Sincèrement merci de m'enlever cette épine du pied:lol:

Cordialement

Codial

Citation:

---

Envoyé par codial

Sincèrement merci de m'enlever cette épine du pied

---

De rien !
Ce forum est là pour ça

Bonjour,
J'ai le même problème, j'utilise un TmaskEdit pour saisir une date, Si la date est déjà saisie et en voulant la supprimer j'ai l'erreur, et je ne sais pas comme intercepter le message dans l'exception, à quel évènement du TMaskEdit je dois associer cette exception pour permettre la suppression de cette date ?

Merci beaucoup d'avance

Salut,

Il suffit d'adapter la réponse donnée par OutOfRange: Supprime les 0 du masque d'édition.

Code:

---

1 2	EditMask := '!99/99/9999;1;_';

---

@+

Merci beaucoup, c'est tellement rapide et efficace que je ne trouve pas les mots pour vous remerciez, encore une fois mille merci;:P