Ir para conteúdo
Fórum Script Brasil
  • 0

[resolvido] Carregamento Do Progressbar?


Simão Neto

Pergunta

:D Turma é o seguinte, criei uma tela de splash para meu sistema (um minisistema), pois bem a mesma executa e chama a outra tela como é pra ser, + ai eu coloquei um progressbar para emfeitar + as coisas e o componente não carrega, e ai como eu faço pra ele carregar? O sistema inicia sem nem um problema o unico error é que o progressbar não carrega.

Se alquem puder me ajudar desde já agradeço. ;)

Esse foi o codigo que usei.

procedure TFrm_Tela_Inicial.Timer1Timer(Sender: TObject);

begin

Frm_Tela_Inicial.Show; // Inicia a tela de abetura

Frm_Tela_Inicial.Release;

sleep(2000); // O tempo que a tela fica na tela do monitor

Frm_Tela_Inicial.Refresh; // Tira a tela inicial da memoria liberando a mesma

Frm_Tela_Inicial:= nil;

ProBar.Position:= ProBar.Position+2;

If ProBar.Position = 100 THEN

timer1.Enabled:= False;

F_sistema.ShowModal; //Chama a tela do sistema

Application.Initialize; // Inicia o sistema

end;

CAP_inline_2.jpg

Editado por Simão Neto
Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

Simão, tenta isso

procedure TFrm_Tela_Inicial.Timer1Timer(Sender: TObject);
begin
Frm_Tela_Inicial.Show; // Inicia a tela de abetura
Frm_Tela_Inicial.Release;
sleep(2000); // O tempo que a tela fica na tela do monitor
Frm_Tela_Inicial.Refresh; // Tira a tela inicial da memoria liberando a mesma
while probar.position = 100 do
begin
probar.position := probar.position + 2;
end;
If ProBar.Position = 100 THEN
timer1.Enabled:= False;
Frm_Tela_Inicial:= nil;

F_sistema.ShowModal; //Chama a tela do sistema
Application.Initialize; // Inicia o sistema
end;

onde estou não pra testar, ai e dar o retorno.

Link para o comentário
Compartilhar em outros sites

  • 0

;) Pirambu valeu vei pela dica acabei de testar + não deu certo. Bem o que vale é a intensão.

+ Já não tenho dúvidas sobre esse assunto pois recebir um tutorial ensinando como fazer uma tela splash

e junto a carregar uma Gauge bem o principio pros dois é o mesmo veio com alguns comandos a +

ai fiz algumas modificações e executou pefeitamente a aplicação. :D

;) Vou postar a dica pra galera que tem interese em saber como faz para carregar os componente Gauge e ProgressBar.

até + ..... B)

earthxcaptain_thumb.jpg

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...