Funciones comunes a varios Forms

[marcoszorrilla]

Por supuesto que puedes llamar a esa función desde un evento. Sino te funciona nos tendrás que mostrar el código y el error que te da pra poderte ayudar.


Un Saludo.

[[gluglu]]

No es que me dé ningún error.

En el programa que quiero que llame a esas funciones he declarado :

Código Delphi [-]
implementation
 
uses MastDataModule, GeneralFunctions;
 
{$R *.nfm}
 
....

Las funciones en "GeneralFunctions.pas" están declaradas como se indica más arriba en este hilo.

Cuando voy a asignar un evento en el programa principal, sólo me aparecen las funciones declaradas en ese mismo form, y no las que hemos definido en "GeneralFunctions.pas". Por lo tanto tampoco las puedo elegir. Si fuerzo la situación y escribo manualmente en el evento (en este caso el evento OnEnter de un DBEdit) "GeneralFunctions.GetFocus2", entonces sí me sale el error : "'GeneralFunctions.GetFocus2' is not a valid identifier"

Gracias de nuevo por vuestra ayuda. ... y espero que los Reyes os hayan traido cosas bonitas a todos !!

[[Al González]]

¡Buen día a todos!

Hola Gluglu.

La solución que se ha planteado es válida y ciertamente, como lo comentas, tendrías que llamar a la función GetFocus2 desde cada manejador de evento «GetFocus»/Enter (evento OnEnter).

Antes de continuar, hago un paréntesis para precisar que no siempre es necesaria la calificación de una función. Es decir, puedes escribir simplemente «GetFocus2» en lugar de «GeneralFunctions.GetFocus2».

Ahora, entiendo que la solución propuesta no satisface por completo tu necesidad de ahorro de código. Existen otras dos alternativas que puedes implementar:

1. Usar una plantilla de forma.
2. Crear un componente derivado de TDBEdit.

En algunos casos, la opción 1 resulta la más práctica. Consiste en crear una forma padre con los manejadores de eventos que comunmente se requieren (y el código necesario dentro de ellos). Una vez que la forma pertenece al proyecto, puedes crear tantas formas derivadas (clases hijas) de ella como desees; y con el inspector de objetos puedes enlazar eventos de sus componentes a los manejadores de eventos de la clase padre. De esta manera centralizas en la unidad de la forma padre (la plantilla) el código que es común para varios componentes de las formas derivadas.

La opción 2 se recomienda cuando deseas que un componente tenga una característica específica y bien definida. En este caso, buscas que los TDBEdit cambien de color al ser enfocados. Afortunadamente TDBEdit y todas las demás clases derivadas de TWinControl cuentan con un método virtual llamado DoEnter. Puedes crear una nueva clase de componente, derivada de TDBEdit, que redefina (Override) el método DoEnter para incluir en esa redefinición (el nuevo DoEnter) sentencias que cambien el color del control.

Personalmente, optaría por la opción 2 si ya tengo identificados los tipos de componentes que deben cambiar de color. Usaría la opción 1, cuando el cambio de color pueda darse sobre una amplia variedad de controles o de clases no claramente identificadas.

Espero esto sea de utilidad, seguimos en contacto.

Al González .