Duda con inicialización de variables

[lucasarts_18]

Gracias amigo, tu última solución creo que es lo mejor.

Para ver si entiendo con el código OnShow:= nil;
haces que el evento OnShow se omita, para luego lanzarlo con FormShow(nil). porque todo al parecer resulta que al momento del onshow las variables no se encuentran disponibles cuando el formulario es de tipo fsMDIChild.

Pero me quedan las dudas, será un bug del delphi ?? o quizás lo erroneo es lo que estaba haciendo, pero siguiendo una lógica si uno ya tiene instanciada la clase (create(nil)) esta ya se encuentra totalmente accesible, lo raro es que el evento onshow no se entere de estos valores ni por si acaso.

Gracias estimado, por ahora me parece una solución fantastica, aunque igual que a ti, el por qué de tal comportamiento no me lo explico ya que el evento onpaint si tiene conocimientos de estos valores.

Saludos .-

[ecfisa]

Hola lucasart.

Si correcto, lo de OnShow:= nil, es por que cuando realiza el OnCreate inmediatamente dispara el OnShow y no está el valor aún.

Pero como te dije antes, lo averigué probando. Y al igual que vos no tengo idea del por que de este comportamiento.
Deberíamos consultarlo en un nuevo hilo, quizá algún compañero tenga el dato...

La property no es para embrollar la cosa... , me quedó de una prueba...

Saludos.

[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