Fazer O Carregamento De Uma Gauge E Um Progressbar

[Simão Neto]

:rolleyes: Olá turma pra quem tava querendo uma dica de como carregar uma PorgressBar ou uma Gauge pois bem, eu desenvolvir um pequeno sistema para calcular o consumo de uma determinada carga e retornar

valor em reais.

Esse foi o codigo que eu usei, a aplicação executa normalmente com a tela de splash e o carregamento da Gauge.

Segue abaixo:

Na propriedade do Timer1 na opção intevalo digite:

60.

No Evento On Timer1 digite:

Gauge1.Progress := Gauge1.Progress +1;

if Gauge1.Progress = 25 then

//Label1.Caption := ''; esse é um comentario caso tenha tabela no seu sistema coloque; 'carregando Tabelas'; e assim por diante.

if Gauge1.Progress = 50 then

//Label1.Caption := '';

if Gauge1.Progress = 80 then

Label1.Caption := 'Finalizando...';

if Gauge1.Progress = 100 then

begin

Timer1.Enabled := false;

Frm_Tela_Inicial.Hide;

F_sistema.ShowModal;

end;

Lenbrando que vale para os dois.

espero ter ajudado...

Editado Agosto 30, 2007 por Micheus
Adequação do título do tópico

[Rento]

Outra dica, como fazer uma progressbar com Query:

* Não é necessário o uso do Timer.

Inicia o valor no 0

Quando abir a query passa um pedacinho(até porque mesmo a mais complexa query executa rapidamente)

dê um count e coloque como máximo do timer.

Progressbar1.Max := Query1.RecordCount;

enquanto estiver no while not QUERY.eof do coloque pb.stepby(1); (não se esquesa do processsmessage, nem do QUERY.next)

se quiser cancelar. troca o while not QUERY.eof do por while (not QUERY.eof) and (cont) do com uma variavel cont boolean, se setada para false para. Se colocar num botão poderá testar ^^