Buscar por:

Splash screen com progresso enquanto o programa é carregado

Código

Imagina criar um Splash screen com um gauge mostrando o progresso de iniciação da sua aplicação?, e é super simples fazer isso veja:

no seu Splash screen coloque um componente gauge

agora vá no menu Project ->view source, você entrou na parte escrita do programa, agora é só declarar intercaladamente entre a costrução do programa a porcentagem do qual o gauge irá mostrar, agora veja no exemplo abaixo como declarei a execução do gauge

begin

FormSplash:=TFormSplash.create(application); 

  Formsplash.show; \Inicia o splash

  Formsplash.refresh;

  formsplash.Gauge1.Progress:= 1; \aqui é o progresso do gauge a 1%

  Application.Initialize;

  formsplash.Gauge1.Progress:= 5;  \aqui é o progresso do gauge a 5%

  Application.Title := 'Controle Interno';

  formsplash.Gauge1.Progress:= 10; \aqui é o progresso do gauge a 5%

  Application.CreateForm(TFormaniversariantes, Formaniversariantes);

resumo da iniciação do programa:

  formsplash.Gauge1.Progress:= 95; \aqui é o progresso do gauge já a 95%

  Application.CreateForm(TFormRGP, FormRGP);

  Application.CreateForm(TFormRR, FormRR);

  formsplash.Gauge1.Progress:= 100; \ gauge já completo

  Formsplash.Free; \splash é liberado

  Application.Run; \inicia seu programa

É uma alternativa muito simples e fácil para mostrar o andamento da iniciação do seu programa, espero ter ajudado com essa dica, qualquer coisa escrevam luzudo@hotmail.com