Ver Mensaje Individual
  #3  
Antiguo 10-08-2004
Avatar de Carmelo Cash
Carmelo Cash Carmelo Cash is offline
Miembro
 
Registrado: jul 2003
Ubicación: Buenos Aires
Posts: 261
Reputación: 21
Carmelo Cash Va por buen camino
Thumbs down Gracias, pero no conseguí el efecto esperado

Gracias, pero no conseguí el efecto esperado o tal vez no me supe explicar. Quisiera conseguir que la entrada de números tenga la misma seguridad de la calculadora de windows. Ej. los nros de derecha a Izquierda, esto ya está muy bien logrado haciendo...

SysLocale.MiddleEast := True;
Edit1.BiDiMode := bdRightToLeft;

pero para limitar la entrada de números el el evento onkeypress debo escribir...

if not (key in [CHR(8),'0','1','2','3','4','5','6','7','8','9','-','+',decimalseparator]) then key := #0;

a esto tengo que agregarle el control de un solo signo decimal, y los signos + y - solo al principio.

Puedo escribirlo en el mismo codigo, pero tal vez delphi lo tenga resuelto con alguna función más bonita.
Responder Con Cita