Tela Splash! Assunto batido!

08/12/2003

1

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 ele fica carregando o aplicativo, corre uma carra de ¬ na tela splash, mesmo que o programa carregue rapido eu quero que ele fique pelo menos uns 10 seg na tela!


Responder

Posts

08/12/2003

Phenomenom

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.


Responder

10/12/2003

Tchoninho

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


Responder

11/12/2003

Cebikyn

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 ...


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira