Discussion :

[LuckyLuke56]

Salut les connaisseurs,
Je souhaite affecter un masque de saisie à un champ dbedit contenant un numéro bancaire. L'utilisation du composant TMaskedit est-elle possible car je ne trouve pas les propriétés datasource et datafield.
Quelqu'un aurait-il une idée à me proposer? Une procédure sur onenter insérant un tiret entre les groupes de chiffres serait-ce une solution valable ou existe-t-il une méthode plus "delphiste" ??

Merci

[popo]

Dans ce cas tu peux toujours passer un DBEdit et n'accepter que des chiifre dedans

procedure Form1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', Chr(VK_BACK), Chr(VK_DELETE)]) then
Key := #0;
end;

Edit : PARDON POUR LE MULTIPOSTE, SUPPRIMER CE MESSAGE SVP

[popo]

Dans ce cas tu peux toujours passer un DBEdit, renseigner sa propriété MaxLength et n'accepter que des chiifre dedans

Code :

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

1
2
3
4
5
procedure Form1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', Chr(VK_BACK), Chr(VK_DELETE)]) then
  Key := #0;
end;

[LuckyLuke56]

Cette proposition que j'avais vue dans le forum n'est valable que si je n'insère pas les tirets.
Il faut donc après avoir introduit le nombre sans tiret placer une procédure (sur "onEnter") qui va copier le nombre introduit et le coller dans le même champ en ajoutant les tirets ! Est-ce possible ? Il faut savoir que j'ai plusieurs champs identiques mais évidemment portant des noms différents (DBEditCompteBancaire1, DBEditCompteBancaire2, etc...). Le faire pour chaque champ serait lourd dans le code.
Merci

[NABIL74]

Salut les connaisseurs,
Je souhaite affecter un masque de saisie à un champ dbedit contenant un numéro bancaire. L'utilisation du composant TMaskedit est-elle possible car je ne trouve pas les propriétés datasource et datafield.
Quelqu'un aurait-il une idée à me proposer? Une procédure sur onenter insérant un tiret entre les groupes de chiffres serait-ce une solution valable ou existe-t-il une méthode plus "delphiste" ??

Merci

Salut,

j'ai deux propositions à te donner:
1-

Code :

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

1
2
3
4
procedure TForm1.FormCreate(Sender: TObject);
begin
Dbedit1.field.editmask := '!9999999/9999/0990;1;_' ;
end;

" !9999999/9999/0990;1;_" => le masque de saisie à titre d'exemple.

2-double-clique sur ta table,il y a la fenêtre des champs qui apparaitra,clique sur le champ en question et dans les "propriétés" de l'inspecteur d'objets, définis ton masque de saisie dans "EditMask".


A+

NABIL74

[LuckyLuke56]

Ok merci Nabil74
Les deux solutions fonctionnent, je vais voir laquelle je vais adopter.