Compartilhando informação

Arquivo para a categoria ‘Delphi’

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

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?