ProgressBar
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
Curtidas 0
Respostas
Marcio.theis
06/07/2006
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...
GOSTEI 0
Maf_arthur
06/07/2006
OI amigo não conseguir não
vc pode mim ajudar
vc pode mim ajudar
GOSTEI 0