Creación de Ventanas modales (duda)
 

Siguiendo los pasos del libro : La Cara oculta de Delphi... me cree un procedimiento para abrir ventanas modales, el cual era:

Código Delphi [-]
procedure TFP.MostrarModal(AClass : TFormClass);
begin
  with AClass.Create(Application) do
  try
    showmodal;
  finally
    Free;
  end;
end;

Para llamarlo utilizo:

Código Delphi [-]
FP.MostrarModal(TFAviso);

Donde FAviso es un formulario creado en tiempo de diseño, pero que elimino de los "Auto-Create Forms" y FP es el Formulario Principal.

El problema es que si lo hago de esta manera no puedo acceder a los componentes que tengo en FAviso, como puede ser:

Código Delphi [-]
Faviso.Label1.Caption:='Prueba';

Si alguien sabe como solucionar el problema, agradecería su ayuda.

Un saludo.

Si vas a tener que hacer cosas entre el Create y el Show no vas a poder utlizar ésta rutina, a no ser que siempre vayas a realizar las mismas cosas con tus formularios (como por ejemplo cambiar el Label), en cuyo caso basta con que amplies la rutina:

Código Delphi [-]
procedure TFP.MostrarModal(AClass : TFormClass; NewCaption:String);
begin
  with AClass.Create(Application) do
    Caption := NewCaption;
  try
    showmodal;
  finally
    Free;
  end;
end;

Si no esí (que es lo más seguro) pues debes desechar ésta rutina y realizar éste código y el resto de operaciones en los lugares donde lo necesites.

Efectivamente, voy a tener que hacer cosas entre el Create y el Show.

Gracias por la rapidez de tu respuesta.