Tela Splash! Assunto batido!

Delphi

08/12/2003

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!


Luiz.claudio.vieira

Luiz.claudio.vieira

Curtidas 0

Respostas

Phenomenom

Phenomenom

08/12/2003

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.


GOSTEI 0
Tchoninho

Tchoninho

08/12/2003

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


GOSTEI 0
Cebikyn

Cebikyn

08/12/2003

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


GOSTEI 0
POSTAR