Procedimiento externo
Buen día a todos y gracias por la ayuda de antemano.
Tengo un procedimiento llamado "Numero" declarado en mi Form, el cual cuando selecciono el TEdit puedo asignarle éste procedimiento en el evento OnKeyPress.
Como es un procedimiento que ocuparé en otros Form's, he creado un archivo llamado proc_func.pas y he puesto ahí el procedimiento Numero, en la clausula USES de mi Form puse el archivo proc_func.pas. La cuestión es que cómo puedo referenciar a ese procedimiento y asignárselo a al evento OnKeyPress del Edit sin tener que poner el código:
Sino asignárselo de manera directa como en la imagen anterior. Muchas gracias. |
Hola, lo que muestras se puede solucionar creando Forms que hereden de otro Form. Pero no se si sea lo correcto del todo. Esas validaciones las puedes hacer usando algún otro componente como el SpinEdit o hasta creando tu propio componente cuya base sea el TEdit (Como en este pequeño ejemplo)
Bueno, de todos modos así puedes hacer lo que quieres: UFormBase:
Unit1:
|
Gracias por tu ayuda [movorack]
Probé con el componente SpinEdit pero no me sirve porque lo que necesito capturar en los TEdit son números reales, no solo enteros. A menos que no haya sabido configurarlo adecuadamente. Probé con el código que me proporcionarte y no me funcionó, revisé varias veces y no me valida solo números en el procedimiento donde coloco inherited . Lo que pretendo hacer es no generar más código en los Form's. |
Propiedad ValueType
|
Cita:
^\||/^\||/^\||/ |
Cita:
|
Cita:
:D ... Les agradezco de corazón el tiempo que se tomaron para leer este hilo y la ayuda prestada. Soy de la idea de evitar usar componentes de terceros a menos que sean muy necesarios y en este caso pues creo que no lo es y tendré que hacer en cada Form un evento OnKeyPress para todos los TEdit que requieran la validación :
Saludos desde Puebla, México. |
La franja horaria es GMT +2. Ahora son las 17:17:31. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi