Compartilhando informação

ProgressBar na StatusBar

Awe Pessoal esse post é sobre delphi como colocar um ProgressBar em uma StatusBar

é muito simples porém requer alguma atenção para seus códigos certo

vamos a prática

1 -> coloque uma StatusBar no form e ajuste a propriedade do painel:

Style = psOwnerDraw

2 -> Coloque um ProgressBar no Form e ajuste a propriedade:

Visible = False

3 -> No evento OnDrawPanel da Status Bar digite o código abaixo:

begin
if panel.index = 0 then
begin
ProgressBar1.Width := Rect.Right – Rect.Left +1;
ProgressBar1.Height := Rect.Bottom – Rect.Top +1;
ProgressBar1.PaintTo(StatusBar.Canvas.Handle, Rect.Left, Rect.Top);
end;
end;

4 -> agora coloque um buttom na form e no evento onclick do mouse digite o código abaixo:
var I : integer;

begin
for I := ProgressBar1.Min to ProgressBar1.Max do
begin
ProgressBar1.Position := I;
StatusBar1.Repaint;
Sleep(50);
end;
Sleep(500);
ProgressBar1.Position := ProgressBar1.Min;
StatusBar1.Repaint;
end;

Pronto agora execute o programa e veja o resultado.

abaixo segue uma imagem de como ficou o exemplo que fiz.

Progressbar

Gostou Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

Informática gratuita para você.

Compartilhando informação

Cartões com Arte

Um novo conceito em cartões. facebook.com/cartoescomarte.

Nouvelle vie au Canada

Casal em busca do seu sonho de morar no Canadá

Informática Gratuita

Compartilhando informação

Red Dreams

Quem disse que meus sonhos não podem ser vermelhos?

%d blogueiros gostam disto: