Orden de Creación. Form y Frame

[[gluglu]]

Buenas a todos !

En qué orden se crea un Form y un Frame contenido en él ?

Tengo un form principal, que contiene varios Frames. En el form principal tengo un DataSet. El (los) frame(s) accede(n) a dicho dataset 'principal'.

En principio pensaba que en el evento OnCreate del Form principal podía llamar a un proceso de inicialización del Frame. Pero al parecer da error.

He probado quitando ese proceso de inicialización del evento OnCreate del Form principal, y asignarselo a un OnClick de un botón cualquiera. Así funciona correctamente. Es decir, después de creado todo, puedo acceder perfectamente en mi proceso de inicialización del frame al DataSet del form principal.

He probado también en el OnActivate del form principal, pero tampoco. Ni tampoco en el OnEnter del propio frame.

Gracias por vuestra ayuda.

[[Lepe]]

Hombre, primero modularidad: Nada de acceder por las buenas desde un frame a un dataset externo, añade una propiedad al Frame:

Código Delphi [-]
property Dataset:TDataset read FDataset write SetDataset;

Por otra parte, el evento Oncreate del Form ocurre después de crearse todos los componentes que tiene en su interior (excepto antes de Delphi 3, o si la propiedad OldCreationOrder del form está a true).

Lo que estará pasando, son fallos colaterales, muy común en este tipo de circunstancias.

Al no decir el error y describir el escenario donde ocurre, poco se puede afirmar.

Saludos

[[gluglu]]

Gracias Lepe !

En primer lugar, el error es 'Object Reference not set to an Instance of an Object'.

Todo esto viene de haber cambiado ayer totalmente la reestructuración de una parte de mi programa. Se trata de una aplicación MDI para reservas de hoteles. Quiero abrir por supuesto tantas reservas como el usuario desee.

Hasta ayer, error craso, tenía todos los accesos a datos en un DataModule. Al acceder a la siguiente fase de programación y querer crear ya varias reservas, es decir, varios forms MDI, me dí cuenta que con los DataModule y los Forms MDI, es un pequeño engorro programar bajo Delphi.

Estuve consultando todo tipo de información tanto aquí en el foro como en general en Google, e Internet. Varias soluciones se presentaban : crear múltiples instancias del DataModule, una por cada Form MDI, reasignar cada vez los DataSource's a cada variable local del Datamodule creado, y un largo etcétera.

Opté por la solución más intuitiva y creo que menos engorrosa. Trasladar el acceso a datos al form, sacándolos del DataModule.

Mi situación es la siguiente. Una reserva de hotel se compone de un Form Principal y 5 diferentes Frames que sirven para 5 diferentes grupos de opciones. Aparte desde cada frame se pueden abrir muchos Forms en forma Modal, cada uno con su propio acceso a Datos.

Pero TODOS los 5 frames, y todos los Forms que se abren en modo modal, acceden a datos comunes de la reserva (Número, etc. ...). Es por ello que coloqué el IBDataSet principal de la reserva en el formulario principal. Y todos los frames y forms modales accederían en principio a dicho DataSet. Entiendo que estoy 'intentando' al menos guardar una cierta modularidad.

En cada frame tengo bastantes DataSet's 'locales' con sus correspondientes DataSource's. Vamos, todo lo que antes tenía en 4 o 5 DataModule's diferentes y funcionaba hasta entonces bien, sin haber creado todavía más de una reserva simultáneamente.

Es ahora cuando me surgen estos problemas. He indagado y he depurado bastante todo hasta llegar a la conclusión de que el problema que de momento tengo, se debe al orden de creación. Lo dicho anteriormente, coloco un botón y le asigno a ese botón en su evento OnClick toda mi función de inicialización del Frame, y funciona correctamente.

Ya que estoy con el tema. Aprovecho para pedir consejo acerca de las transacciones y preguntar también donde es mejor colocarlas. En este caso, he colocado también la transacción en el Formulario Principal. De tal manera que cada Frame pudiera llamar también a la transacción con su Commit o Rollback segun proceda.

Espero haber expuesto ahora con mayor claridad mi problemática y agradezco cualquier comentario. Sobre todo al tema, creo yo, poco tratado de Formularios MDI y DataModule (aunque hace 1 semana hubo un hilo al respecto que me influyó por cierto en la decisión de situar el acceso de datos en el propio form, en vez del DataModule).

A mi entender teniendo el acceso de datos en el form, al crear múltiples instancias de formularios MDI (en mi caso reservas), cada una se comportará de manera 'modular' sin influir en ninguna de las demás reservas abiertas, y sin mezclar los DataSources para cada reserva.

De nuevo muchas gracias y saludos a todos.

... se me olvidaba. Me podrías aclarar un poco más por favor la función y utilidad de colocar la propiedad en el frame que mencionas arriba, referente al DataSet ?

[[Lepe]]

Como solemos decir por aqui: "a lo hecho, pecho", si has tomado la decisión de poner los controles en el form no voy a darte otra alternativa (y menos aún cuando yo hago lo mismo que tú ).

Si yo hago un Frame es para usarlo en Forms distintos, mostrando datos de diferentes Datasets en cada instancia del frame.

Si el frame necesita el dataset de otra ventana, hago esto:

Código Delphi [-]
Frame1 = class(Tframe)
...
private
  FDataset:TIBDataset;
public
  property Dataset: TIBDataset read FDataset write SetDataset;
end;

implementation

procedure TFrame1.SetDataset(Value:TIBDataset);
begin
  if Value <> FDataset then 
  begin
     FDataset:= Value;
     Reabrir las consultas locales del frame
  end;

Ahora en dentro del form, para asignarle un Dataset de ese frame:

Código Delphi [-]
procedure TFrmReservas.Button1Click(....);
begin
   Frame1.Dataset := IBDataset1;
end;

Con esto se puede modificar fácilmente el dataset de cada Frame en tiempo de ejecución. (aunque no sé si lo necesitarás, me parece que no)

Realmente la propiedad "Dataset" es un puntero al IBDataset1 de la ventana de Reservas, pero está declarado dentro del frame, no tengo que hacer un "uses UnitReservas" dentro del Frame.

El error que comentas no lo visto en mi vida. Según Google tiene que ver con ADO, (puesto que no lo he usado nunca), y dices que usas IB... me deja más perplejo.

Saludos

[[gluglu]]

Gracias de nuevo Lepe.

Estoy utilizando BDS 2006 en VCL.NET. No sé si eso tendrá algo que ver. El error es típico al menos para mi, siempre y cuando haya algún objeto que todavía no esté instanciado y se intenta acceder a él, o a alguna de sus propiedades, eventos, etcétera.

No sé si es apropiada para mi la solución que me explicas. No intento acceder desde el Form Principal al DataSet del Frame. Para mi el problema es más simple que todo eso pero no sé el por qué del error que me sale.

Mi form principal es BookingMain y este es parte del código :

Al llamar a BookingMain desde mi menú principal, le paso un número de reserva que deseo abrir.

Código Delphi [-]
  ...
  public
    { Public declarations }
    Num_Booking    : Int64;
    BookingFrame11 : TBookingFrame1;
    ...
    constructor Create2(Param_1: Int64);
  end;

constructor TBookingMain.Create2(Param_1: Int64);
begin
  Num_Booking := Param_1;
  inherited Create(Application);
end;

A continuación, en el OnCreate del BookingMain :

Código Delphi [-]
procedure TBookingMain.FormCreate(Sender: TObject);
begin
 
  IBTransaction1.Active := True;
  IBDataSet1.ParamByName('Num_Book').Value := Num_Booking;
  IBDataSet1.Open;
 
  StatusClick(nil);
  ShowSelectedInitialize;
 
  BookingFrame11 := TBookingFrame1.Create(Self);
  BookingFrame11.Parent  := Self;
 
  ....

  BookingFrame11.FrameEnter(nil);
 
end;

llamo a BookingFrame11.FrameEnter de manera 'manual'. Me interesa así de momento. En cualquier caso, el error de este hilo también me aparece aunque ejecute los comandos de manera que se llamen por el evente BookingFrame1.OnEnter tal y como comentaba anteriormente.

Los procedimientos 'StatusClick' y 'ShowSelectedInitialize' llaman a IBDataSet1 sin problema.

En el Frame :

Código Delphi [-]
procedure TBookingFrame1.FrameEnter(Sender: TObject);
begin
  ...
  MaskEdit1.Text := IntToStr(DaysBetween(BookingMain.IBDataSet1DATEARRIVAL.Value, BookingMain.IBDataSet1DATEDEPARTURE.Value));
  ...
end;

... y es aquí donde me salta el error. Al intenter acceder a BookingMain.IBDataSet1....

Vuelvo a insistir. Si quito la línea

Código Delphi [-]
  BookingFrame11.FrameEnter(nil);

del evento OnCreate de BookingMain, coloco un botón cualquiera en BookingMain, y una vez mostrado todo, pulso el botón y por tanto ejecuto esta última línea, todo funciona correctamente.

.... añado una cosa ahora mismo, que mientras estaba escribiendo el mensaje he probado para cerciorarme.

He probado

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

y me salta el mismo error : 'Object Reference not set to an instance of an object'.



Una vez más gracias por vuestra ayuda.

[[gluglu]]

... añado ...

Está claro que todo esto no tiene que ver con el DataSet ni nada. Tiene que ver, que intento acceder desde el Frame a elementos del Form Principal. Y al parecer estas todavía no han sido definidas para el Frame hasta que este no se muestra en pantalla.