Ver Mensaje Individual
  #8  
Antiguo 20-02-2007
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Cita:
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
Responder Con Cita