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);
End;
End;