Ver Mensaje Individual
  #6  
Antiguo 06-04-2004
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 28
Lepe Va por buen camino
IVAND, me vas a perdonar, pero despues de ver las 2 respuestas anteriores, ya dudo que lo haya entendido bien.

Pongo un ejemplo: Cuando abres delphi, lo primero que aparece es la ventana con el logotipo, y pasados unos segundos, cuando ha cargado el resto de la aplicación, la ventana del logotipo se cierra. ¿la ventana del logotipo es lo que quieres hacer?

Si es así, debes seguir estos pasos:
La ventana de presentacion debe tener FormStyle := fsnormal ya que es la primera que se creará y por tanto, la MDI aún no se ha creado.

Projects --> View Source y editas el contenido

Código:
  Application.Initialize;
  FrmCredits := TFrmCredits.Create(nil); 
  FrmCredits.Show;
  FrmCredits.Update;
//  los mensajes de redibujado tienen poca prioridad y los deja para el final.
// Así que obligamos a que se dibuje en pantalla con el Update.
                         

  // creacion del resto de ventanas
  // la MDI principal y algunas auxiliares que necesites.

  FrmCredits.Free; // si usas un timer quita esta linea
  Application.Run;
Si en autocreate solo tienes 1 o 2 ventanas, probablemente ni saldrá la ventana de presentación, en tal caso, en el OnShow de la ventana, activa un timer para que se quede al menos 2 segundos; y en el Evento OnTimer haz un FrmCredits.Release;

Saludos
Responder Con Cita