Ver Mensaje Individual
  #5  
Antiguo 07-12-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola gonza.

Otro modo puede ser:
Código Delphi [-]
 
  if not (Key in ['0'..'9',#8]) or ((Key='0') and (Length(TEdit(Sender).Text)=0)) then
  begin
     Beep;
     Key:=#0;
  end;

Saludos.

Última edición por ecfisa fecha: 07-12-2010 a las 17:24:07.
Responder Con Cita