Tela Splash! Assunto batido!

Question

Caros amigos, eu sei que o assunto que vou abordar aqui j� e meio batido, mas eu nao sei como fazer, eu queria saber como fa�o, se possivel um exemplo de uma tela splash tipo a do corel que em quando ...

Phenomenom · Answer

Eu n�o costumo dar um close aonde o pessoal coloca close no c�digo, ao invez disso eu coloco um componente timer e programo o tempo que eu quero pra fechar a janela....

Tchoninho · Answer

Experimente colocar o comando �ProgressMessage� para que a tela de splash capture as mensagens de progresso....

Cebikyn · Answer

Para deixar 10s na tela, antes da linha que fecha o splash coloque:
Sleep(10000);

ou se preferir, use este c�digo, que cria os � durante 10 segundos:

var
  x: Integer;
begin
  for x:=0 to 100 do begin
    ProgressBar1.Position := x;
    Label1.Caption := �Carregando: �+IntToStr(x)+� � conclu�do�;
    ProgressBar1.Update;
    Application.ProcessMessages;
    Sleep(100);
  end;
end;

Nunca use esse recurso, ele acaba com a paci�ncia de qq usu�rio, al�m de gastar a energia el�trica do pobre coitado que fica esperando um programa que n�o est� fazendo nada, s� exibindo uma tela �bunitinha� :D ...