Duda con inicialización de variables

[lucasarts_18]

Estimado.

Segun la ayuda de delphi.

Use OnCreate to perform special processing when the form is created and is invoked by TCustomForm’s constructor. Either implement this event or override the constructor of the form; do not do both. Any objects created in the OnCreate event should be freed by the OnDestroy event.
When a form is being created and its Visible property is true, the following events occur in the order listed:
1. OnCreate
2. OnShow
3. OnActivate
4. OnPaint

Al parecer cuando la propiedad está visible=true se disparan los eventos de más arriba, quizás teniendo la propiedad visible=false funcione, bueno, mañara haré pruebas de esto y ver si estableciendo la propiedad a false los valores logren asignarse.

Saludos .-

[ecfisa]

Amigo... ¡¡¡ Felicitaciones, diste justo en el clavo !!!

Código Delphi [-]
class procedure TForm2.Mostrar(Num: Integer);
begin
  if not Assigned(Form2) then
    Form2:= Create(nil);
  with Form2 do
  begin
    Visible:= False;
    f_id_Ajuste:= Num;
    Visible:= True;
  end;
end;

procedure TForm2.FormShow(Sender: TObject);
begin
  Caption:= IntToStr(f_id_Ajuste);
end;

Saludos.

[ecfisa]

Hola de nuevo lucasart.

Me parece que me apuré a alegrarme, quedaba tan sencillo ajustando la propiedad Visible...
Despues de tanta prueba olvidé poner como MDIChild a Form2, fué por eso que no me dío error. Pero no se puede ocultar un Form MDIChild.

Esto no funciona:

Código Delphi [-]
  with Form2 do
  begin
    Visible:= False;
    f_id_Ajuste:= Num;
    Visible:= True;
  end;

La solución hasta el momento, sigue siendo:

Código Delphi [-]
procedure TForm2.FormCreate(Sender: TObject);
begin
   OnShow:= nil;
end;

class procedure TForm2.Mostrar(Num: Integer);
begin
  if not Assigned(Form2) then
    Form2:= Create(nil);
  with Form2 do
  begin
    f_id_Ajuste:= Num;
    OnShow:= FormShow;
    FormShow(nil);
  end;
end;

procedure TForm2.FormShow(Sender: TObject);
begin
  Caption:= IntToStr(f_id_Ajuste);
end;

Si encontrás alguna otra solución, agradecido si la pones.

Un saludo.

[lucasarts_18]

Estimado.

No he encontrado otra manera de hacerlo, bueno también está la opción de sobreescribir el constructor del formulario y pasarle un parametro adicional para utilizar (solución propuesta a mí en el mismo club hace unos par de años).

Mientras tanto para pantallas MDIChild estoy usando tu solución.

Saludos .-

[cloayza]

No se si entendi mal, pero igual va mi solucion.

Si f_id_Ajuste es una variable publica se puede asignar valor en cualquier momento. Por lo tanto antes de crear el formulario MDI, se le puede dar un valor {1}.

En este ejemplo incluso la sentencia Show, se puede obviar e igualmente se mostrara el formulario.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
    Unit2.f_id_Ajuste:=999;  {1}

    with TForm2.Create(nil) do
    try
        Show;
    finally
      //Free;
    end;
end;

Saludos

[ecfisa]

Hola cloayza.

Si declaras la variable f_id_Ajuste como global en Unit2, tenés toda la razón.

Pero si está declarada en una sección de la clase, no es posible hacerlo como arriba. Ya que la instancia de TForm2, y por tanto f_id_Ajuste,
todavía no están creados.

En este ejemplo incluso la sentencia Show, se puede obviar e igualmente se mostrara el formulario.

Voy corriendo a probarlo ! ( ¿ lo dejo en Auto-create no ?)


Saludos.

[cloayza]

ecfisa, ni siquiera es necesario dejarlo en auto create.

Saludos.