CTRL-P en varios formularios

[Neftali [Germán.Estévez]]

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)