Duda con inicialización de variables

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