El Splash Screen se desaparece muy rápido

[eddg]

Señores, toy desarrollando un SOFTware y ya hice mi spalshScreen, y aparece y todo, pero, tengo un problema, necesito que este SPLASH dure algo cerca de 3 segundos, sin embargo he probado con todo:

He leido todos los manuales que salen en este FORO, todos dicen lo mismo, solo hablan de como hacer que aparezca el SPLASH, y como hacer para que se OCULTE o DESAPAREZCA, pero ninguno habla de como hacer que NO DESAPAREZCA, Salvo uno, que hablaban de mi problema pero Recomendaron que usara un comando llamado SLEEP


Sin Embargo este programa por lo que tengo entendido es un PROCEDURE y no se como ejecutarlo y llamarlo desde el EDITOR de codigo del PROYECTO GENERAL.

CODIGO:
begin
SplashScreen := TSplashScreen.Create(Application) ;
SplashScreen.Show;
SplashScreen.Update;

Application.CreateForm(Tprincipal, principal);
Application.Initialize;

Application.Run;
end.

Trato de colocarlo así pero no me funciona, no lo reconoce:

CODIGO:
begin
SplashScreen := TSplashScreen.Create(Application) ;
SplashScreen.Show;
SplashScreen.Update;
Sleep(3000);

Application.CreateForm(Tprincipal, principal);
Application.Initialize;

Application.Run;
end.

---------------

No me Funciona, Por favor, ayudenme en esto, que tengo mas de seis horas tratando y creanme que hoy he leido BASTANTE acerca de este tema y nada q resuelvo el problema! muchas Gracias...

[[eduarcol]]

hola, te recomiendo una leidita a la guia de estilo para que entendamos mejor lo que preguntas

de momento se me ocurre debes agregar la unidad SysUtils en el uses.

otra cosa para que quieres que se tarde el splash??? no es una practica recomendada por eso no hay mucha info al respecto

[eddg]

ya tengo agregada esa UNIDAD de SysUtils en mi USES, he igual me dice


[Error] Project2.dpr(23): Undeclared identifier: 'sleep'


y quiero mostrar el splashscreen porque tengo alli publicidad y una imagen muy buena que quiero q vean los usuarios!

[[eduarcol]]

porq no colocas el dpr completo porq a mi me funciona lo que dices

[eddg]

codigo del proyecto:

program Project2;

uses
Forms,
Unit1 in '..\..\..\..\..\Archivos de programa\Borland\Delphi7\Projects\nuevo\Unit1.pas' {principal},
Unit9 in 'iconos\Unit9.pas' {splashscreen};

{$R *.res}

begin

SplashScreen := TSplashScreen.Create(Application) ;
SplashScreen.Show;
SplashScreen.Update;
sleep(3000);
Application.CreateForm(Tprincipal, principal);
Application.Initialize;
Application.Run;
end.


codigo del FORM PRINCIPAL

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ImgList, ToolWin, ComCtrls, ExtCtrls,
ActnMan, ActnCtrls, Menus, Unit2, dblookup, ShellCtrls, Grids, Outline,
DirOutln, Spin;

type
Tprincipal = class(TForm)
...etc...
procedure ToolButton8Click(Sender: TObject);
....etc...

private
{ Private declarations }
public
{ Public declarations }
end;

var
principal: Tprincipal;

implementation

uses Unit3, Unit5, Unit9;

{$R *.dfm}

procedure Tprincipal.ToolButton8Click(Sender: TObject);
begin
close;
end;
...etc...

end.

[[eduarcol]]

como te decia en el codigo del dpr no tienes SysUtils en el uses, agregalo y listo