Splash
08/02/2003
0
Boa Tarde Pessoal.
Estou tentando inserir um form do tipo SplasScreen em uma Aplicação mas esta dando erro na linha sleep que e o tempo em que o formulario ira permanecer na tela o codigo e o seguinte:
FrmSplash := TFrmSplash.Create(Application);
FrmSplash.Show;
FrmSplash.Refresh;
Sleep(2000); //tempo que o formulario Splash ficará aberto 2 sg
FrmSplash.Free;
Se alguém souber como posso contornar este problema eu ficarei muito agradecido.
:(
Estou tentando inserir um form do tipo SplasScreen em uma Aplicação mas esta dando erro na linha sleep que e o tempo em que o formulario ira permanecer na tela o codigo e o seguinte:
FrmSplash := TFrmSplash.Create(Application);
FrmSplash.Show;
FrmSplash.Refresh;
Sleep(2000); //tempo que o formulario Splash ficará aberto 2 sg
FrmSplash.Free;
Se alguém souber como posso contornar este problema eu ficarei muito agradecido.
:(
Nill
Curtir tópico
+ 0
Responder
Posts
08/02/2003
Carnette
Troque o comando SLEEP e coloque um objeto TIMER com o mesmo tempo que o problema estará resoilvido
Responder
08/02/2003
Marcelo
vc ja tentou colocar o codigo no PROJECT/VIEW SOURCE?
Marcelo.
Marcelo.
Responder
08/02/2003
Marcelo
vou colocar apenas o que vc deve acrescentar........(substitua o codigo antigo por esse).
program PSplash;
uses
Forms,
SySutils,
UPrincipal in ´UPrincipal.pas´ ,
USplash in ´USplash.pas´ ,
{$R *.res}
var
Relogio:TDateTime;
begin
FSplash:=TFSplash.Create(Application);
FSplash.Show;
FSplash.Refresh;
Application.Initialize;
Application.CreateForm(TFrmPrincipal, FrmPrincipal);
FSPlash.Update;
Relogio:=Time();
While Time-Relogio < StrToTime(´00:00:03,00´) do;
FSplash.Free;
Application.Run;
end.
Depois que fizer isso, va em PROJECT/OPTIONS e coloque o form SPLASH em avaliable forms.
Se não de certo me avise!
program PSplash;
uses
Forms,
SySutils,
UPrincipal in ´UPrincipal.pas´ ,
USplash in ´USplash.pas´ ,
{$R *.res}
var
Relogio:TDateTime;
begin
FSplash:=TFSplash.Create(Application);
FSplash.Show;
FSplash.Refresh;
Application.Initialize;
Application.CreateForm(TFrmPrincipal, FrmPrincipal);
FSPlash.Update;
Relogio:=Time();
While Time-Relogio < StrToTime(´00:00:03,00´) do;
FSplash.Free;
Application.Run;
end.
Depois que fizer isso, va em PROJECT/OPTIONS e coloque o form SPLASH em avaliable forms.
Se não de certo me avise!
Responder
Clique aqui para fazer login e interagir na Comunidade :)