Discussion :

[nou366]

Bonjour à tous ,

J'ai un petit souci pour empêcher qu'on saisisse dans un EditLabel (j'en ai 24 sur ma forme !)des caractères autres que des lettres.
J'ai un peu regardé sur le forum
J'essaie ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var i:integer;
begin
for i:= 0 to ComponentCount -1  do
          begin
            if Components[i] is TLabeledEdit then
              if not (key in [#8,'0'..'9',DecimalSeparator,'+','-']) then key:=#0;
          end ;
end;

mais ca marche pas
quelqu'un a-t il une idée?
UN grand merci à tous

[Eric Sigoillot]

Bonjour,

Ca ne peut pas fonctionner : les touches sont capturées par les composants TEdit (et dérivés), pas par la fiche.
Il faut associer le même évènement OnKeyPressed à tous les TEdit, qui filtre les touches :

Code :

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

1
2
3
4
5
6
7
8
procedure TEdit1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Sender is TEdit then
  begin
    if not (Key in [#8, '0'..'9', DecimalSeparator, '+', '-']) then 
      Key := #0;
  end;
end;

La partie if Sender... est plutôt facultative.

@++

[nou366]

Merci Eric de m'avoir répondu,

Donc si je comprends bien, je dois répéter la procedure pour tous les Tlabelededit ( 24 fois !!), et qu'il n'y apas d'autres solutions

Merci , et a+

[Eric Sigoillot]

Relis bien ce que je t'ai dit : il faut associer le même évènement à tes composants.
Autrement dit, tu écris ton évènement pour le premier composant (un double-clic dans l'éditeur de propriétés, onglet évènements).
Pour, tu sélectionnes les 23 autres composants, tu sélectionnes l'onglet évènements dans l'éditeur de propriétés et au lieu de faire un double-clic, tu déroules la liste et tu choisis l'évènement associé au premier composant.

De cette manière, tu auras un évènement associé à 24 composants.

@++

[nou366]

Super ca marche bien