Fórum Como Carregar um ProgressBar? #166668

olá amigo vamos lá...

você usará um timer com velocidade a sua escolha.

use uma variavel ´x´ e ela terá que ser zerada no inicio do programa.
x:=0;


no codigo do timer use essa linha de código

if x<100 then
begin
ProgressBar1.Position:=x;
x:=x+1;
end;

espero tenha ajudado

olá amigo vamos lá...

você usará um timer com velocidade a sua escolha.

use uma variavel ´x´ e ela terá que ser zerada no inicio do programa.
x:=0;


no codigo do timer use essa linha de código

if x<100 then
begin
ProgressBar1.Position:=x;
x:=x+1;
end;

espero tenha ajudado

• Coloque uma StatusBar no form.
&8226; Adicione dois paineis na StatusBar (propriedade Panels).
&8226; Ajuste as propriedades do primeiro painel conforme abaixo:
Style = psOwnerDraw
Width = 150
&8226; Coloque uma ProgressBar no form e mude sua propriedade Visible para false.
&8226; No evento OnDrawPanel da StatusBar digite o código abaixo:
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel:
TStatusPanel; const Rect: TRect);
begin
{ Se for o primeiro painel... }
if Panel.Index = 0 then
begin
{ Ajusta a tamanho da ProgressBar de acordo com o tamanho do
painel }
ProgressBar1.Width := Rect.Right - Rect.Left +1;
ProgressBar1.Height := Rect.Bottom - Rect.Top +1;
{ Pinta a ProgressBar no DC (device-context) da StatusBar }
ProgressBar1.PaintTo(StatusBar.Canvas.Handle, Rect.Left,
Rect.Top);
end;
end;
&8226; Coloque um Button no form
• Digite no evento OnClick do Button o código abaixo:
procedure TForm1.Button1Click(Sender: TObject);
var
I: integer;
begin
for I := ProgressBar1.Min to ProgressBar1.Max do
begin
{ Atualiza a posição da ProgressBar }
ProgressBar1.Position := I;
{ Repinta a StatusBar para forçar a atualização visual }
StatusBar1.Repaint;
{ Aguarda 50 milisegundos }
Sleep(50);
end;
{ Aguarde 500 milisegundos }
Sleep(500);
{ Reseta (zera) a ProgressBar }
ProgressBar1.Position := ProgressBar1.Min;
{ Repinta a StatusBar para forçar a atualização visual }
StatusBar1.Repaint;
end;
&8226; Execute e clique no botão para ver o resultado.
Observações: Com um pouco de criatividade podemos fazer outras coisas
interessantes usando o evento OnDrawPanel da StatusBar.