Ver Mensaje Individual
  #5  
Antiguo 26-01-2006
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Quizá no le funciona el Sleep porque falta algún Refresh. Aquí un ejemplo:

Código Delphi [-]
program Project1;

uses
  Windows,
  Graphics,
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;

  Form2 := TForm2.Create(Application);
  Form2.Show;
  Form2.Refresh;

  Form2.Label1.Caption := 'Ensamblando pixeles...';
  Form2.Refresh;
  Sleep(1000);

  Form2.Label1.Caption := 'Pintando controles...';
  Form2.Refresh;
  Sleep(1000);

  Form2.Label1.Caption := 'Pegando la barra de desplazamiento...';
  Form2.Refresh;
  Sleep(1000);

  Form2.Label1.Caption := 'Agregando botones...';
  Form2.Refresh;
  Sleep(1000);

  Form2.Label1.Font.Style := [fsBold];
  Form2.Label1.Caption := 'Un momento, voy al sanitario';
  Form2.Refresh;
  Sleep(50000);
  Form2.Label1.Font.Style := [];

  Form2.Label1.Caption := 'Fijando la barra de título...';
  Form2.Refresh;
  Sleep(1000);

  Form2.Label1.Caption := 'Recopilando fuentes...';
  Form2.Refresh;
  Sleep(1000);

  Form2.Label1.Caption := 'Activando el cursor...';
  Form2.Refresh;
  Sleep(1000);

  Form2.Free;

  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.



pd: La verdad es que al principio suena muy bonito eso del splash aún siendo innecesario, pero al final tus usuarios te agradecerán que la aplicación inicie lo antes posible.

// Saludos
Responder Con Cita