Ver Mensaje Individual
  #2  
Antiguo 14-05-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola granodetoro.

Te pongo un ejemplo con los pasos para crear un SplashScreen.

Create un Form que desde ahora lo llamo 'Logo' y ajusta las propiedades:
.BorderStyle = bsNone
.Position = poScreenCenter
.Visible = True (Importantisimo para que se visualice)

Quita el form Logo de Auto-create forms (Project->Options->Forms)

Poné lo que gustes como presentación.

Abrí el proyecto: View->Units->Project1.dpr (o como se llame tu proyecto) y agregá lo que está en negrita:
Código Delphi [-]
program Project1;
uses
  Forms,
  Windows, // Para poder usar Sleep
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Logo};
{$R *.res}
begin
  Application.Initialize;
  Logo:= TLogo.Create(nil); 
  Logo.Update;
  Sleep(3000);  // en este caso se muestra 3 segs
  Application.CreateForm(TForm1, Form1);
  Logo.Free;
  Application.Run;
end.

Un saludo.

Edito: Hola granodetoro, mis disculpas. Ya estoy escribiendo 300 veces "debo leer bién los títulos de los mensajes"...
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 14-05-2011 a las 20:45:38.
Responder Con Cita