Ver Mensaje Individual
  #11  
Antiguo 19-06-2007
Avatar de sitrico
[sitrico] sitrico is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Caracas, Venezuela
Posts: 295
Reputación: 24
sitrico Va por buen camino
Otro detalle: en OOP cuando creas los form de la manera en que lo haces,

Cita:
Application.CreateForm(Tagendadetallada1, agendadetallada1);
Application.CreateForm(Tagendadetallada2, agendadetallada2);
Application.CreateForm(Tagendadetallada3, agendadetallada3);
Application.CreateForm(Tagendadetallada5, agendadetallada5);
Application.CreateForm(Tagendadetallada6, agendadetallada6);
Application.CreateForm(Tagendadetallada7, agendadetallada7);
Application.CreateForm(Tagendadetallada8, agendadetallada8);
Application.CreateForm(Tagendadetallada9, agendadetallada9);
Application.CreateForm(Tagendadetallada11, agendadetallada11);
Application.CreateForm(Tagendadetallada12, agendadetallada12);
Application.CreateForm(Tagendadetallada13, agendadetallada13);
Application.CreateForm(Tagendadetallada14, agendadetallada14);
Asignas para cada una los metodos y procedimientos asignas memoria tanto al codigo, como a los datos

Si usaras algo como:
Cita:
Application.CreateForm(Tagendadetallada1, CustomAgendaDetallada);
Application.CreateForm(Tagendadetallada2, CustomAgendaDetallada);
Application.CreateForm(Tagendadetallada3, CustomAgendaDetallada);
Application.CreateForm(Tagendadetallada5, CustomAgendaDetallada);
Application.CreateForm(Tagendadetallada6, CustomAgendaDetallada);
Application.CreateForm(Tagendadetallada7, CustomAgendaDetallada);
Application.CreateForm(Tagendadetallada8, CustomAgendaDetallada);
Application.CreateForm(Tagendadetallada9, CustomAgendaDetallada);
Application.CreateForm(Tagendadetallada11, CustomAgendaDetallada);
Application.CreateForm(Tagendadetallada12, CustomAgendaDetallada);
Application.CreateForm(Tagendadetallada13, CustomAgendaDetallada);
Application.CreateForm(Tagendadetallada14, CustomAgendaDetallada);
Necesitarías 1 sóla vez la memoria para los métodos y un juego de propiedades unico para cada instancia del objeto.

es más no necesitas creear al inicio todos los formularios puedes hacerlo en el oncreate del main form

Código Delphi [-]
For i = 0 to CantidadAgendas do
   Begin
   f[i] := tAgendaDetallada.Create(self);
   f[i].SetIdAgendaDetallada(i); 
    // aqui escribes un case qure diferencia los parametros de las agendas
   End;
End;
__________________
Sitrico
Responder Con Cita