Botão disponivel Apos Completa Gauge

primeiro adicione os seguintes componentes na sua form:

1 Gauge - Aba Samples
1 Timer - Aba System
2 Buttons ou BitBtns - Aba Standard ou Addtional
1 Panel - Aba Standard



1º Passo - Mude o Caption do Panel para "Aguarde..."

2º Passo - Mude o Caption dos dois Buttons para "Go !", e deixe o Button1 atrás do Button2.

3º Passo - Mude a propriedade Enabled do Button2 para False.

4º Passo - Mude o Interval do timer para uma que te agrade, quanto maior, mais vai demorar pra carregar a gauge.

5º Passo - Mude a propriedade do Timer 1 para False.

6º Passo - Agora sim vamos aos códigos.Clique duas vezes no 1º Timer e adicione o seguinte código:

if Gauge1.Progress<100 then begin
Gauge1.Progress:=Gauge1.Progress+(1) ;
Timer1.Enabled:=False;
Timer1.Enabled:=True;
end
else begin
Panel1.Caption:='Completo!'
Button1.BringToFront;
Timer1.Enabled:=False;



10º Passo - Clique duas vezes no Button1 e adicione o seguinte código:

ShowMessage('Processo completo com êxito !');



É "só" isso...

Obs.:Você pode adicionar o código que você quiser no Button1.


Créditos
(RD)~Ryan


Até a próxima.