Función de Clase para iniciar formulario

[rarratia]

Empezado por AgustinOrtu

Código Delphi [-]
class function Tf_smName.MostrarVentana(ATag : Integer; var AForm: TForm) : TModalResult;
begin
    AForm := Create(Application);
    with AForm do
    Try
      Tag      := ATag;
      Result   := ShowModal;
    finally
      Free;
    end;
end;

No lo he probado en el delphi pero a simple vista asi parece que funcionara el

Código Delphi [-]
Application.CreateForm(TipoForm, VariableForm);

Y la llamada

Código Delphi [-]
Tf_smName.MostrarVentana(nroTag, f_smName);

No, no es igual, el código que implemento, crea el formulario, lo ejecuta y lo libera entregando respuesta en una sola instrucción...