Ver Mensaje Individual
  #2 (permalink)  
Antiguo 10/12/2003, 02:39
Avatar de JavierB
JavierB
Colaborador
 
Fecha de Ingreso: febrero-2002
Ubicación: Madrid
Mensajes: 25.052
Antigüedad: 22 años, 2 meses
Puntos: 772
Hola, FelipeP.

Utiliza el evento onKeyPress:
Código:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not(Key in ['0'..'9',#8]) then
  begin
    Key:=#0;
  end;
end;
Saludos,