Fórum Edit só com numeros #240887
01/07/2004
0
tem como eu fazer com que um edit só receba numeros???
ou eu tenho q usar um componente para isso?
ou eu tenho q usar um componente para isso?
Mrcdlf
Curtir tópico
+ 0
Responder
Posts
01/07/2004
Raptrap
Crie um procedure como essa....
Procedure SoNum(Var Chave: Char);
Procedure SoNum(var Chave: Char);
Begin
If Not (Chave In [´0´..´9´,#8]) Then
Chave := 0;
End;
e nos keyPress do campo a ser verificado coloque:
SoNum(Key);
espero ter ajudado
Procedure SoNum(Var Chave: Char);
Procedure SoNum(var Chave: Char);
Begin
If Not (Chave In [´0´..´9´,#8]) Then
Chave := 0;
End;
e nos keyPress do campo a ser verificado coloque:
SoNum(Key);
espero ter ajudado
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)