Discussion :

[faenor]

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

[Pedro]

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

[faenor]

j'ai pas compris la premiere méthode mais bon c pas grave la 2ieme en effet est évidende ! ça marche tres bien merci

[Pedro]

N'oublie pas le tag [Résolu]
Outils de la discussion => Mettre résolu