Iniciar aplicación con ventana no principal

[pborges36]

Por lo que entiendo necesitas algo parecido a un splash, por lo menos en comportamiento. Yo uso algo asi:

Código Delphi [-]
Application.Initialize;
Application.Title := 'Mi Programa';
Application.CreateForm(TPrincipal, Principal);
Application.CreateForm(TSplash, Splash);
Splash.ShowModal;
Splash.Free;
Application.Run;

Espero te sirva. Saludos.

[adebonis]

Hola.

Ya estoy utilizando una ventana del tipo Splash, no es eso lo que necesito. Tambien he probado a mostrar la ventana al crear la principal, pero me da un error de violación.

Inicio la apliacaión en el systemTray y no visualizo la ventana principal. Eso funciona perfectamente. Pero también necesito que cuando ya esté cargada toda la aplicación me aparezca una ventana determinada. De hecho parece que como la ventana principal no se muestra no se tienen en cuenta los eventos onShow, onPaint, onActivate, etc. con lo que me encuentro imposibilitado de realizar acción alguna.

Bien, si podeis ayudarme lo agradeceré.

Adolfo Bonis
Barcelona

[dec]

Hola,

Tendrás que ver qué está ocurriendo. Si comienzas una aplicación partiendo de cero, como puedes ver en el ejemplo que adjunto, es perfectamente posible no mostrar el formulario principal y en el evento "OnCreate" de dicho formulario principal, por el contrario, mostrar un formulario "secundario".

[adebonis]

Hola.

Ok. Cierto.

Al final (me has dado la idea) he dejado el código del proyecto como sigue:

Código Delphi [-]
  fSplash := TfSplash.Create(Nil);
  try
  fSplash.Show;
  fSplash.Label1.Caption := 'Leyendo la configuración del programa...';
  fSplash.Update;
  Application.CreateForm(TSgpPral, SgpPral);
  if SgpPral.varSeguir then begin
    fSplash.Label1.Caption := 'Conectando con el Servidor de datos...';
    fSplash.Update;
    Application.CreateForm(TdmSgp, dmSgp);
    Application.CreateForm(TdmCon, dmCon);
    Application.CreateForm(TdmMan, dmMan);
    Application.CreateForm(TfMaestros, fMaestros);
    fSplash.Label1.Caption := 'Comprobando actualizaciones...';
    fSplash.Update;
    Application.CreateForm(TfCompras, fCompras);
    fSplash.Label1.Caption := 'Creando directivas de trabajo...';
    fSplash.Update;
    Application.CreateForm(TfAsuntos, fAsuntos);
    fAsuntos.Show;  
  end;
  finally
  fSplash.Free;
  end;
  if SgpPral.varSeguir then
    Application.Run
  else
    Application.Terminate;

He añadido la línea fAsuntos.Show y me funciona bien.

Gracias.

Adolfo Bonis
Barcelona