Ver Mensaje Individual
  #2  
Antiguo 25-11-2009
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 29
Lepe Va por buen camino
No sé muy bien si entiendo lo que quieres hacer, pero al menos una solución es esta, herencia visual.

Crea un form base que tenga ese código:
Código Delphi [-]
TBaseForm = class(TForm)
public
  Procedure WMSYSCOMMAND(Var Msg: TMessage); Message WM_SYSCOMMAND;
end;
....

implementation
....

Ahora si tienes un form cliente definido así:
Código Delphi [-]
TCliente = class(TForm)
sólo tienes que cambiarlo a:
Código Delphi [-]
TCliente = class(TBaseForm)

hecho !

Si vas a crear un Form nuevo, o bien lo haces a mano como antes, o bien eliges File -> New -> other -> project -> TBaseForm (marcar como inherited) y aceptar.

Si como dices tienes muchas formas ya creadas, sin duda necesitas de alguna utilidad que haga el trabajo sucio. Tú mismo puedes cargar los archivos .pas y modificarlo o busca programas ya hechos... que los hay y se han comentado anteriormente en el foro.
__________________
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: 25-11-2009 a las 23:53:04.
Responder Con Cita