Ola Fabio, interessante esse seu codigo, pois naum eh obrigado a ficar parado como o Sleep faria, mas eu naum entendi uma coisa, o que faz a linha de comando
Application.ProcessMessages; Pois pelo que entendi ate esse ponto, todos os formularios ja estao carregados!!! Um Abraco!!! Rodrigo Izquierdo da Motta. //=============================================== --- Fabio Giro <[EMAIL PROTECTED]> escreveu: > > > A resposta est� grande por causa das explica��es. > > Para criar uma p�gina de splashscreen fa�a > daseguinte forma: > > 1 - Execute o Delphi e adicione um novo formul�rio > ao seu projeto; > 2 - Escolha um nome para ele (frmSplashScreen, por > exemplo) e configure a > propriedade BorderStyle com o valor bsNone e > Position com o valor > poScreenCenter; > 3 - Personalize a sua splash screen, adicionando os > componentes que desejar: > labels, images, panels, etc. Normalmente insere-se > primeiro no formul�rio, > um Tpanel, com a sua propriedade Align configurada > como alClient e outras > propriedades como: BevelInner, BevelOuter, > BevelWidth, BorderWidth para > produzir v�rios efeitos diferentes; > 4 - Clique no menu Project | Options e mova o > formul�rio da listbox > Auto-create forms para a lista Available Forms. O > formul�rio respons�vel por > exibir a splash screen, ser� criado e em seguida > exibido antes mesmo da > aplica��o ser realmente aberta; > 5 - Selecione Project | View Source para acessar o > fonte do projeto > (conte�do do arquivo .dpr); > 6 - Inclua o c�digo abaixo depois do begin: > > frmSplashScreen:= > TfrmSplashScreen.Create(Application); > frmSplashScreen.Show; > Application.Initialize; // Esta linha j� > existe. > frmSplashScreen.Update; > > 7 - Depois do �ltimo Application.Create() e antes da > senten�a > Application.Run, adicione: > > frmSplashScreen.Hide; > frmSplashScreen.Free; > > 8 - Pronto. A splash screen j� est� criada. Rode a > aplica��o. Neste exemplo, > dependendo da velocidade do seu computador, voc� > ver� a sua tela de abertura > muito rapidamente (pode at� ser que voc� n�o consiga > observ�-la), mas se seu > projeto for composto por muitos formul�rios, > certamente a tela de abertura > poder� ser lida. Veja a seguir como controlar o > tempo de exibi��o de uma > splash screen. > > Criando Splash Screen Temporizada: > > Geralmente, uma tela de abertura deve aparecer > imediatamente ap�s o usu�rio > clicar no �cone da sua aplica��o e n�o dever� > desaparecer at� que o > formul�rio principal da sua aplica��o tenha sido > totalmente carregado, > esteja vis�vel e pronto para ser utilizado. Caso sua > aplica��o possua poucos > formul�rios ou se sua carga for r�pida > demais, a tela de abertura poder� ficar totalmente > impercept�vel para o > usu�rio. Uma solu��o para isso seria o emprego do > componente Ttimer. > Configure a sua propriedade Interval com um valor > m�ltiplo de 1000 para a > quantidade de segundos que voc� deseja que sua > splash screen permane�a > vis�vel. Valores como 3000 ou 4000 para Interval, > correspondem a > aproximadamente 3 ou 4 segundos respectivamente. > Certifique-se de que a > propriedade Enable esteja configurada como True e em > seguida, no evento > OnTimer, escreva o c�digo abaixo: > > Timer1.Enabled := False; > > V� ao Object Inspector e escreva no evento > OnCloseQuery do formul�rio o > seguinte c�digo: > > CanClose := Not Timer1.Enabled; > > Como Ttimer inicialmente � habilitado, ele iniciar� > a contagem assim que o > formul�rio for criado. Logo que o valor de Interval > tenha sido atingido, ele > ser� desabilitado. Como resultado, ele somente > executar� uma �nica vez. Para > resolver este problema, lan�amos m�o do evento > OnCloseQuery, que � usado > para informar ao Windows se um formul�rio pode ser > fechado ou n�o. Se a > vari�vel CanClose retornar verdadeiro, o formul�rio > poder� ser fechado, caso > contr�rio ele permanecer� aberto. Tudo que n�s temos > que fazer � retornar o > valor oposto do estado da propriedade Enabled do > componente Ttimer. Se > Ttimer ainda estiver em execu��o pela primeira vez, > n�o deixamos o > formul�rio da splash > screen ser fechado. Logo que o Ttimer finalizar sua > execu��o, ele ser� > desabilitado, o que consequentemente fechar� o > formul�rio. A �ltima coisa > que temos que fazer � efetuar um apequena > modifica��o no > c�digo do projeto. Insira o c�digo abaixo antes da > senten�a > frmSplashScreen.Hide: > > repeat > Application.ProcessMessages; > until frmSplashScreen.CloseQuery; > > Quando a sua aplica��o chegar neste ponto, ela > permanecer� em loop at� que a > chamada a CloseQuery permita que a execu��o > continue. Agora, caso ela leve > mais tempo para ser carregada do que a temporiza��o > definida para a tela de > abertura, ent�o a splash screen terminar� > imediatamente quando a aplica��o > alcan�ar este trecho de c�digo. > > Espero ter ajudado. > > ----- Original Message ----- > From: "Erika" <[EMAIL PROTECTED]> > To: <[email protected]> > Sent: Sunday, January 30, 2005 2:16 AM > Subject: [delphi-br] splash > > > > > Algu�m poderia me dizer como fa�o a tela splash?? > Obrigado a todos!!! > > > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA > MENSAGEM >>>>> > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br/messages > > Para falar com o moderador, envie um e-mail para: > [EMAIL PROTECTED] ou > [EMAIL PROTECTED] > > Links do Yahoo! Grupos > > > > > > > > > > > > -- > Internal Virus Database is out-of-date. > Checked by AVG Anti-Virus. > Version: 7.0.300 / Virus Database: 265.7.2 - Release > Date: 21/01/2005 > > > > > > -- > Internal Virus Database is out-of-date. > Checked by AVG Anti-Virus. > Version: 7.0.300 / Virus Database: 265.7.2 - Release > Date: 21/01/2005 > > > > > > > === message truncated === ===== Rodrigo Izquierdo da Motta. _______________________________________________________ Yahoo! Acesso Gr�tis - Instale o discador do Yahoo! agora. http://br.acesso.yahoo.com/ - Internet r�pida e gr�tis -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que voc� faz do Yahoo! Grupos est� sujeito aos: http://br.yahoo.com/info/utos.html
