Progresso com Gauge

por Mr.Positive Qua Jan 12, 2011 5:03 pm

Vou Ensinar a Fazer Progresso com Gauge

Bom Vamos la

1º - Abre o Delphi 7

Progresso com Gauge 89001876

2º - Depois vai na Paleta Samples e Pegue a Gauge e Coloque no Form , depois de 1 clique na Gauge
e Mude o Name para Gauge

Progresso com Gauge 47069497

3º - Depois Vai na Paleta Standart e Coloque um TButton (Button)

Progresso com Gauge 97675032

4º Depois dê dois clique no Button e adicione esse codido:

Gauge.Progress:=10;
sleep (100);
Gauge.Progress:=20;
sleep (100);
Gauge.Progress:=30;
sleep (100);
Gauge.Progress:=40;
sleep (100);
Gauge.Progress:=50;
sleep (100);
Gauge.Progress:=60;
sleep (100);
Gauge.Progress:=70;
sleep (100);
Gauge.Progress:=80;
sleep (100);
Gauge.Progress:=90;
sleep (100);
Gauge.Progress:=100;
sleep (100);