|
Lógicamente y teniendo en cuenta cómo tienes escrito el código, para evitar que en el EDIT no se introduzca un valor no numérico con el correspondiente error que se produciría al pulsar el botón habría que asisgnarle al evento onKeyPress el siguiente código:
if not(key in ['0'..'9']) then
begin
key := #0;
messageBeep(0);
end;
|