Fórum ProgressBar #324844
06/07/2006
0
Ola amigos eu estou tendo um outro problema.. eu fiz um splash para meu programa funciona blz.. so tem um pro ta muito rapido
eu coloquei um progressbar saca
e o seguinte codigo
procedure TForm_Splash.FormShow(Sender: TObject);
var
x:integer;
begin
progressbar1.Max:=10000
for x:=0 to 10000do
begin
if x=10000then
label2Caption:=´Carregando imagens´;
if x=30000then
label2Caption:=´Iniciando Aplicativo
Application.ProcessMessages;
ProgressBar1.Position:=x;
Alguem pode mim dar uma ajuda nesse codigo
eu coloquei um progressbar saca
e o seguinte codigo
procedure TForm_Splash.FormShow(Sender: TObject);
var
x:integer;
begin
progressbar1.Max:=10000
for x:=0 to 10000do
begin
if x=10000then
label2Caption:=´Carregando imagens´;
if x=30000then
label2Caption:=´Iniciando Aplicativo
Application.ProcessMessages;
ProgressBar1.Position:=x;
Alguem pode mim dar uma ajuda nesse codigo
Maf_arthur
Curtir tópico
+ 0
Responder
Posts
06/07/2006
Marcio.theis
Usado o comando Sleep(), ai vc pode controlar entre cada passagem, faz um for de 0 até 10 e coloca o Sleep de meio segundo, no caso irá demorar 5 segundos até acabar...
Responder
Gostei + 0
06/07/2006
Maf_arthur
OI amigo não conseguir não
vc pode mim ajudar
vc pode mim ajudar
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)