Como bloqueiar um edit para só aceitar numeros?
:D
amigos , como bloqueiar um edit para só aceitar numeros ....
amigos , como bloqueiar um edit para só aceitar numeros ....
Fábio Galvão
Curtidas 0
Respostas
Jotadeefe
21/04/2005
procedure TfPrincipal.ApenasTeclasNumericas(var parTecla: Char);
begin
if (not(parTecla in [´0´..´9´,8,13,´,´])) then
parTecla := 0;
end;Chame através da OnKeyPress de qualquer edit dessa maneira (declare a unit onde você criou a procedure acima):
fmm.ApenasTeclasNumericas(Key);
GOSTEI 0
Jotadeefe
21/04/2005
Esqueci de dizer: a procedure acima aceita números, backspace, enter e a vírgula
GOSTEI 0
Raserafim
21/04/2005
fabio, no evento OnKeyPress:
if ((Key >= ´0´) and (Key <= ´9´)) or (integer(Key) = 8) then else Abort;
GOSTEI 0
Jose Almeida
21/04/2005
Ou Assim[color=green:24373d4bb2]:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not ( Key In [´0´..´9´,´.´,#8] ) then Abort;
end;
[/color:24373d4bb2]GOSTEI 0