Referencia a diferentes instancias del mismo Form

[[Lepe]]

Empezado por guglu

Me he dado cuenta, está claro, que durante la creación de Form3, el parámetro no está disponible. Por tanto tengo que reubicar todo aquello que dependa de ese parámetro a otro evento, por ejemplo el OnActivate del Form3.

¿a qué te refieres?

En el evento TForm3.FormCreate si está disponible, de hecho, el evento OnCreate llega después de crear todos los componentes / propiedades de tu forma (a menos que tengas OldCreateOrder a True).

Si necesitas que al ejecutar esta línea:

Código Delphi [-]
Form3.Param := 84;

Se ejecute codigo adicional, necesitas el SetValorCampo.

La modificación de una propiedad, por ejemplo Param, debe ser autónoma y no depender de otros eventos (OnActivate). Dentro de SetValorCampo puedes hacer todo lo que necesites para sincronizar todos los controles del Form.


Saludos

[[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;