Ver Mensaje Individual
  #3  
Antiguo 17-09-2018
vicens22 vicens22 is offline
Miembro
NULL
 
Registrado: dic 2010
Posts: 61
Reputación: 14
vicens22 Va por buen camino
Hola,

Gracias por tu respuesta, pero si revisas el código del ejemplo subido, verás que los dos formularios que no son "autocreate" (form1 y form2) son creados. Primero form1 desde el main y luego form2 desde form1.
Es decir los tres están creados cuando obtengo el error (Access violation).
Aquí tienes el código del procedimiento que utilizo para crear y visualizar los dos formularios:


Código Delphi [-]
procedure TfMain.OpenTestForm(cForm: string);

procedure OpenForm(form: TForm);
    begin
      form.Show;
    end;
begin
 if cForm = 'form1' then
  begin
     OpenForm(tfForm1.Create(self));
 //    fForm1.Show;    // Si fForm1 es autocreate
  end
  else if cForm = 'form2' then
  begin
     OpenForm(tfForm2.Create(self));
  end
end;

Si tienes oportunidad pruébalo ejecutándolo en Windows y podrás comprobar que como te comento, los tres forms están creados.

Gracias de nuevo.
Saludos,
Responder Con Cita