Ver Mensaje Individual
  #6  
Antiguo 26-01-2007
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 29
Lepe Va por buen camino
Ya puestos, podríamos crear un programa que le añada herencia a los 100 Forms, y añada el "uses " correspondiente.

Solo tenemos que buscar "uses" en el .pas y añadir el formulario base que queremos crear, después buscar "class(TForm)" y sustituir ese "TForm" por "UBaseForm" siendo éste último nuestra forma de la que heredan todos.

(Quizás es más complejo, porque tendríamos que añadir el "override" en el OnCreate de cada Form hijo, y su llamada "inherited Create (AOwner);")

Al final te veo copiando y pegando ...

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.

Última edición por Lepe fecha: 26-01-2007 a las 12:38:58.
Responder Con Cita