Orden de Creación. Form y Frame

[[gluglu]]

A raiz de este hilo he seguido investigando.

He conseguido que no me dé error si hago lo siguiente :

Código Delphi [-]
procedure TBookingMain.FormCreate(Sender: TObject);
begin

  ... 
  BookingFrame11 := TBookingFrame1.Create(Self);
  BookingFrame11.Parent  := Self;
  ....
  BookingFrame11.FrameEnter(Self);
 
end;
 
procedure TBookingFrame1.FrameEnter(Sender: TObject);
begin
  ...
  (Sender as TForm).Caption := 'Prueba';
  ...
  MaskEdit1.Text := IntToStr(DaysBetween((Sender as TBookingMain).IBDataSet1DATEARRIVAL.Value, (Sender as TBookingMain).IBDataSet1DATEDEPARTURE.Value));
  ...
end;

... pero claro, en el procedimiendo FrameEnter llamo a algo así como 20 o 30 procedimientos diferentes, cada cual con parámetros distintos en su función 'normal', una vez creado ya el Frame.

... sé que por aquí van los tiros. Román lo explicó bien en el hilo que menciono. Pero no sé darle la mejor solución en mi caso.

[roman]

Empezado por gluglu

me dí cuenta que con los DataModule y los Forms MDI, es un pequeño engorro programar bajo Delphi

No, si esto que has hecho es clarísimo, nada engorroso

A ver, no entiendo esto último de que no sabes darle la mejor solución. Ya detectaste dónde está el error:

cuando haces una asignación:

Código Delphi [-]
UnForm := TUnForm.Create;

es cierto que en el evento OnCreate de TUnForm, el formulario ya estará completamente construido, pero la asignación en sí a la variable UnForm es posterior. Dicho de otra manera, el lado derecho de la asignación se ejecuta por completo, incluido todo lo que haya en el OnCreate, y después se asigna a la variable UnForm la dirección en memoria del objeto creado. En otras palabras, mientras estés en el OnCreate, la object reference (variable UnForm) has not been set (no ha sido asignada) to an instance of an object (al objeto recién creado).

Entonces, la solución parece ser quitar todas las referencias a la variable específica.

Pero fíijate que aun independientemente de este problema, estabas enfocando equivocadamente esto: según describes, por cada reserva tienes un formulario BookingMain. Entonces, cuando ponías:

Código Delphi [-]
procedure TBookingFrame1.FrameEnter(Sender: TObject);
begin
 
  BookingMain.Caption := 'Prueba';
  ...

¿A qué BookingMain intentabas referirte? La misma variable no puede apuntar a varios formularios.

--------------------------------

Ahora bien, no sé yo exactamente si pasar los datasets al formulario sea lo más adecuado o lo menos engorroso. Veamos una situación hiper simplificada:

Tienes un formulario frmReserva con sus controles dbaware enlazados a un datasource situado en el mismo formulario. Este datasource estará conectado a un dataset colocado en un datamodule dmReservas. Normalmente conectarás el datasource con el dataset mediante el inspector de objetos, pero, como has visto, esto no es adecuado para cuando requieres varias instancias.

Podrías entonces desasociar el datasource del dataset y hacerlo por código:

Código Delphi [-]
// Desde el menú de la aplicación

datamodule := dmReservas.Create(...);
formulario := frmReservas.Create(...);

formulario.DataSource.DataSet := datamodule.DataSet;

Seguro que también habrá detalles que cuidar, pero me parece que a fin de cuentas sería mucho más claro y menos engorroso, sobre todo porque tú ya tenías una separación sana entre tus datasets y tus formularios.

// Saludos

[[gluglu]]

Una vez más gracias a Román también. Como siempre tus explicaciones son muy claras y concisas.

Lamento no poder haber contestado antes y por tanto no poder haber seguido este hilo con la oportuna diligencia.

Voy encaminado de manera correcta, y ya lo había probado por mi cuenta a última hora de ayer, que la solución viene por quitar las referencias a la variable específica.

Previamente a ello valoré la posibilidad que encontré también en diferentes consultas que hice, de mantener un DataModule con los DataSet's, y colocar los DataSource's en cada frame o form principal.

Como bien afirmas, ello me obliga a que en cada nueva instancia de una reserva, deba crear una nueva instancia del DataModule y asignar los DataSources que se encuentran en los frames a dicha nueva instancia del DataModule.

Para algunos esta opción será la más clara o menos engorrosa. Para mi en cambio me resulta más claro situar finalmente también los DataSets en cada frame o formulario.

Es más, si de hecho andaba ya por los 60 DataSet's colocados en diferentes DataModule's, única y exclusivamente para la reserva, debido a los muchos Forms que tengo para cada opción y que siempre abro en forma modal desde el form principal, que a su vez contiene los frames, me pregunté por qué no colocar cada DataSet entonces en su sitio, es decir en su form. Lo dicho, creo que finalmente para mí esto resulta hasta más claro.

De esta manera además me evito tener que crear cada vez nuevas instancias de los DataModule's y reasignar los DataSource's. Entiendo que con cada nueva instancia del form principal, y de sus subyacentes frames y posteriores forms modales, se crean de manera automática nuevas instancias de cada DataSet.

En ello estoy, y espero ir bien encaminado, no haciendo uso de referencias específicas, tal y como comentas, Román.

Ya indicaré como lo dejé finalmente.

Una última aclaración. Tu dices:

Pero fíijate que aun independientemente de este problema, estabas enfocando equivocadamente esto: según describes, por cada reserva tienes un formulario BookingMain. Entonces, cuando ponías:

Código Delphi [-]
procedure TBookingFrame1.FrameEnter(Sender: TObject);
begin
 
  BookingMain.Caption := 'Prueba';
  ...

A qué BookingMain intentabas referirte? La misma variable no puede apuntar a varios formularios.

Por cada nueva reserva, se crea un nuevo form BookingMain, con su correspondiente Create. Y con cada BookingMain, automáticamente creo los diferentes Frames (p.ej. TBookingFrame1) contenidos en ese BookingMain.

El código arriba era sólo para probar que en el TBookingFrame1 creado, podía cambiar el caption del formulario principal, habiendo visto que obtenía error por todo lo expuesto.

Debo de entender que al crear una nueva instancia de BookingMain, Delphi se encargará de gestionar cada una de esas instancias diferentes segun cada número de reserva, o no es así ?

Una vez más, muchas gracias por todos vuestros comentarios y ayudas. Espero que pueda servir a más gente toda esta serie de explicaciones.

Saludos a todos.