|
//evento OnKeyPress del Tedit
procedure Form1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
{Si no es un numero
o la tecla de borrado
para permitir al usuario
corregir si se equivoca}
if not (Key in ['0'..'9', #8])then
Key:=#0
//no admitir el caracter
//dandole a Key valor nulo
end;
|