Referencia a diferentes instancias del mismo Form

[[gluglu]]

Me refiero a que en el momento de crear el Form, no está disponible el valor 84 del parámetro que tengo que pasar.

Hablo del valor concreto, en este caso del ejemplo, 84.

En el OnCreate inicializo varios campos y hago varias operaciones que precisan del valor 84.

El valor 84 se asigna justo después de haber terminado el OnCreate.

Mi caso concreto. Al crear en este caso por ejemplo mi Form BookingMain, necesito saber el número de reserva al que se refiere. (Supongamos : 84). En el OnCreate de TBookingMain hago varias operaciones que necesitan del valor 84.

Código Delphi [-]
TMain.ButtonClick(Sender: TObject)
  BookingMain := TBookingMain.Create(Self);
  BookingMain.Param := 84;
  BookingMain.Show;

Código Delphi [-]
TBookingMain.Create(Sender: TObject);
begin
  ....
  // Aquí no está disponible el valor 84 de Param
  ...
end;
 
TBookingMain.Activate(Sender: TObject);
begin
  ...
  // Aquí si está disponible el valor 84 de Param
  ...
end;

No niego que a lo mejor quedaría más claro llamar a un proceso 'Initialize' :

Código Delphi [-]
TMain.ButtonClick(Sender: TObject)
  BookingMain := TBookingMain.Create(Self);
  BookingMain.Param := 84;
  BookingMain.Initialize(nil);
  BookingMain.Show;

Código Delphi [-]
TBookingMain.Initialize(Sender: TObject);
begin
  ....
  // Realizar aquí todas las operaciones de Inicialización de la Rva. 84
  // al estar disponible aquí el valor Param = 84
  ...
end;

[DarKraZY]

Hola gluglu!

Por todo lo que comentas en el último post acerca del parametro (supongamos 84) es mejor la idea de Lepe.

Ya que si todo lo que dependa de ese valor "deberías" hacerlo dentro del SetParam.

Código Delphi [-]
type 
  TForm3 = class(TForm)
  private
    FParam: Integer;
    procedure SetParam(Value: Integer);
  public
    property Param: Integer read FParam write SetParam;
  end;

{...}

procedure TForm3.SetParam(Value: Integer);
begin
  { Previamente en el Create del form ya se creó BookingMain }
  BookingMain.Param := Value;
  BookingMain.Show;
end;