Cita:
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...