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