: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.
Pergunta
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...
![superman2_thumb.jpg](http://i160.photobucket.com/albums/t177/Tryonn/superman2_thumb.jpg)
Editado por MicheusAdequação do título do tópico
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.