Ver Mensaje Individual
  #14  
Antiguo 20-04-2012
Pedro-Juan Pedro-Juan is offline
Miembro
 
Registrado: ago 2006
Ubicación: Barcelona - España
Posts: 315
Reputación: 18
Pedro-Juan Va por buen camino
Hola 5TU4RT

Por el código que veo en los edit sólo necesitas números enteros, con esto en el evento OnKeyPress del edit evitas que se introduzcan otros caracteres:

Código Delphi [-]
procedure Form.Edit1KeyPress(Sender: TObject; var Key: Char);
var cReturn: Char;
begin
cReturn := Key;
if ((Key <  #48)  or (Key > #57)) then Key := #0;
if (cReturn = #8) then Key := #8;
end;

Espero te sirva.

Un saludo.
__________________
Este mundo es el camino para el otro, que es morada sin cesar. Mas cumple tener buen tino para andar esta jornada sin errar. (J. Manrique)
Responder Con Cita