rolando_s
23-07-2005, 21:03:03
Hola foreros yo con mas dudas que nunca
estoy tratando de filtrar los datos que se ingresan a una aplicacion tengo un tedit1 en el que se ingresan los datos pero quiero que solo se ingresen numeros enter tab y borrar.
el codigoque tengo abisa que se ingreso una letra u otro caracter pero permite que se escriba.
lo que busco es algo que no permita que se escriban los demas caracteres.
si me pueden orientar un poco se los agradecere.
procedure TVentas_b.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
Begin
if not(chr(Key) in ['0','1', '2','3','4','5','6','7','8','9' ]) then
ShowMessage('solo numeros');
end;
end.
estoy tratando de filtrar los datos que se ingresan a una aplicacion tengo un tedit1 en el que se ingresan los datos pero quiero que solo se ingresen numeros enter tab y borrar.
el codigoque tengo abisa que se ingreso una letra u otro caracter pero permite que se escriba.
lo que busco es algo que no permita que se escriban los demas caracteres.
si me pueden orientar un poco se los agradecere.
procedure TVentas_b.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
Begin
if not(chr(Key) in ['0','1', '2','3','4','5','6','7','8','9' ]) then
ShowMessage('solo numeros');
end;
end.