Ver Mensaje Individual
  #3  
Antiguo 20-10-2004
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 18.286
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por magm2000
...Una solución que tengo es colocar un ActionList en cada formulario pero el problema es que tengo muchos formularios, es un poco rollo tener que modificar todos los formularios si lo puedo hacer mediante una función que me sirva para todos los formularios...
Creo que la solución la puedes encontrar en la herencia.
Crea un nuevo formulario (llamemosle TMiForm) donde debes colocar tu componente ActionList y el resto de componentes/comportamientos comunes a todos tus formularios. A partir de ahí se trata de hacer que tus formularios deriven de TMiForm en lugar de TForm, de esta forma ésta característica y todas las que implementes estarán en todos tus formularios.


Luego cambias ésta definiciónb de tus forms:
Código Delphi [-]
TForm1 = class(TForm)

por ésta otra:
Código Delphi [-]
TForm1 = class(TMiForm)
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.

Última edición por Neftali [Germán.Estévez] fecha: 20-10-2004 a las 09:39:35. Razón: problema en las etiquetas...
Responder Con Cita