Ver Mensaje Individual
  #3  
Antiguo 07-08-2008
Avatar de BlueSteel
[BlueSteel] BlueSteel is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Concepción - Chile
Posts: 2.310
Reputación: 24
BlueSteel Va por buen camino
Wink

se me olvidaba.. y si solo quieres trabajar con el Edit normal, puedes utilizar el sgte codigo en el evento onKeyPress

Código Delphi [-]
If Key = #13 Then vUnd.SetFocus; // Si presiona Enter salta a otro foco
If Key='.' Then Key:=','; // si presiona punto lo cambia por coma (para los decimales)
If Pos(',',vCtd.Text)=0 then
If not (Key in ['0'..'9',',',#8]) Then Key :=#0  // acepta solo digitos, coma y retroceso
   Else Exit
Else
If not (Key in ['0'..'9',#8]) Then Key :=#0;

Salu2
__________________
BlueSteel
Responder Con Cita