splashscreen

[dec]

Hola,

Luego de mostrar la "splash screen" utiliza el procedimiento "Sleep", de tal modo que el flujo del programa se detenga por el tiempo que consideres oportuno.

Algo así:

Código Delphi [-]
{...}
splash := TFormSplash.Create(Self);
splash.Show;
Sleep(3000);
{...}

[[BlueSteel]]

Hola amigos.. una consultita...

el Sleep es un comando de delphi... de ser así con que unidad trabaja ???

Código Delphi [-]
splash := TFormSplash.Create(Self);
splash.Show;
Sleep(3000);

[dec]

Hola,

El procedimiento "Sleep" aparece declado tanto en las unidades "Windows" como "SysUtils". En ambos casos parece que hace uso de una función de la librería "kernel32" del API de Win32.

Este es el procedimiento tal como aparece implementado en la unidad "SysUtils":

Código Delphi [-]
{$IFDEF MSWINDOWS}
procedure Sleep; external kernel32 name 'Sleep'; stdcall;
{$ENDIF}
{$IFDEF LINUX}
procedure Sleep(milliseconds: Cardinal);
begin
  usleep(milliseconds * 1000);  // usleep is in microseconds
end;
{$ENDIF}

[[BlueSteel]]

Ok... ya me funcionó... muchas gracias