Delphi dicas

Progressbar muito simples

{Esta dica é muito simples sobre progressbar

primeiro - coloque no form um progressbar

segundo - coloque também um timer

terceiro - clique duas vezes no timer e digite o seguinte código:}

progressbar:=progressbar+1;

if  (progressbar>99) then

begin

        progressbar:=0;{faz o progressbar entrar em looping e iniciar novamente}

end;

{Se você quizesse que ao concluir o carregamento ele abrisse um form era só colocar assim:



primeiro - coloque no form1 um progressbar

segundo -  coloque no form1também um timer

terceiro - crie um novo form que se chamará (Form2)

quarto - clique duas vezes no timer e digite o seguinte código:

}

if  (progressbar>99) then

begin

        form2.show;

        progressbar.visible:=false;

end;