colocar tempo na tela splash

Delphi

21/05/2003

Boa Tarde. Gostaria de Saber como faço para colocar um tempo qualquer em uma tela splash, pois no meu computador ela abre tão rápido que eu não consigo ver a tela, provavelmente o futuro usuário não vai conseguir também. Se puderem me ajudar desde já agradeço.



Bruno Costa.


Bruno_costa

Bruno_costa

Curtidas 0

Respostas

Rodrigo Costa

Rodrigo Costa

21/05/2003

Cara, eu faço o seguinte para exibir uma tela de splash e consigo visualizar a tela perfeitamente:
begin
  Application.Initialize;
  {}
  form_splash:=tform_splash.Create(application);
  form_splash.Show;
  form_splash.Update;
  {}
  Application.Title := ´Controle de Equipamentos e Serviços´;
  Application.CreateForm(TForm_Login, Form_Login);
  Application.CreateForm(TForm_Menu, Form_Menu);
  Application.CreateForm(TForm_Cliente, Form_Cliente);
  Application.CreateForm(TForm_Tipo, Form_Tipo);
  {}
  form_splash.Hide;
  form_splash.Destroy;
  {}
  Application.Run;
end.


Agora, para você especificar um tempo específico você pode usar o objeto timer da paleta system. Mas terá de programar diferente do que está no exemplo acima.


GOSTEI 0
Juan Basso

Juan Basso

21/05/2003

Você pode fazer como dito na resposta anterior. Uma dica:

Você coloca um TTimer no splash e bota no OnCloseQuery um if pra ver se é pra fechar antes do tempo. E no quando der o tempo, feche o splash.


GOSTEI 0
POSTAR