Edit só com numeros
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
Curtidas 0
Respostas
Raptrap
01/07/2004
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
GOSTEI 0