Pantalla de inicio

[Asimur]

hombre si, que mientras se rellene la barra ponga cosas como:
'cargando datos' 'inicializando datos', ..., pero claro todo de pega porque mi aplicación no tiene módulos pesados que digamos. Por cierto he encontrado la función 'sleep()', que se supone que hace una pausa en la ejecución, pero a mi no me funciona, me da error (tengo delphi 4).

[delphi.com.ar]

Empezado por Asimur

hombre si, que mientras se rellene la barra ponga cosas como:
'cargando datos' 'inicializando datos', ...

Bueno, pero eso depende de los pasos que haga tu programa al iniciar, no te lo podemos decir nosotros.
Simpelemente tienes que saber la cantidad de pasos que hará tu programa y asignárselo a la propiedad Max (y dejar Min en cero).
Cada vez que tu aplicación termine un paso, o bien puedes cambiar el valor de la propiedad Position, o puedes llamar al método StepBy(1), o puedes llamar a StepIt definiendo previamente el valor de cada paso en la propiedad Step.

Sería buenísimo saber que error te da el uso de la función sleep, ya que es mas que básica, solo tienes que usar la unit Windows, y llamar a la función pasándole como parámetro el tiempo en milisegundos que quieres que detenga la ejecución.

PD: ¿Te parece lógico forzar que la aplicacón tarde mas de lo que tardaría realmente al iniciar?

[roman]

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

[delphi.com.ar]

Empezado por roman

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

¡Que velocidad!