Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   Validar IWEdit (IntraWeb) (https://www.clubdelphi.com/foros/showthread.php?t=51596)

Caro 20-12-2007 14:40:28

Validar IWEdit (IntraWeb)
 
Hola a todos

Quiero validar que en un IWEdit se escriban solo numeros y si presionan una letra no dejarle escribir, como lo hago en IntraWeb, ya que aqui hay menos eventos y nada de OnKeyPress.

Saluditos y muchisimas gracias por adelantado

Caro 20-12-2007 15:48:58

Hola de nuevo

Despues de probar y probar, lo he conseguido, para validar se debe utilizar JavaScript y la propiedad ScriptEvent del IWEdit, les explico lo que hice por si a alguien le sirve.

Entrar a la propiedad ScriptEvent y seleccionar el evento OnKeyPress, al lado derecho colocar este codigo:

Código:

var charCode
if (navigator.appName == "Netscape")
 charCode = event.which //Leemos la tecla que ha ingresado para NetScape
else
 charCode = event.keyCode //Leemos la tecla que ha ingresado

//Verificamos
if (charCode > 31 && (charCode < 48 || charCode > 57)) {
 return false
}
return true

y listo, cuando uno esta escribiendo solo permite introducir números.

Saluditos

jhonny 20-12-2007 16:10:41

Supongo que en Delphi2007 tambien puedes hacer uso del evento OnAsyncKeyPress para lograr el mismo efecto, pero con Pascal... la verdad es que no lo he probado, pero seguramente asi tambien es posible ;).

Caro 20-12-2007 16:25:25

Hola Jhonny muchas gracias por responder, estoy utilizando Delphi 7, ahi no hay el evento OnAsyncKeyPress, por ahora lo dejare asi.

Saluditos

jhonny 20-12-2007 16:30:51

Cita:

Empezado por Caro (Mensaje 253735)
Hola Jhonny muchas gracias por responder, estoy utilizando Delphi 7, ahi no hay el evento OnAsyncKeyPress, por ahora lo dejare asi.

Bueno, ya veo, tal vez la versión de Intraweb que tiene el Delphi2007, haga lo mismo que haz puesto mas arriba sin que lo notemos a simple vista :).


La franja horaria es GMT +2. Ahora son las 06:16:45.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi