Progress Bar real existe ?
pessoal ,
preciso implementar uma progress bar no meu projeto, porem só quero que a progress bar termine quando a execução do meu metodo estiver concluida.
como eu poderia estar implementando isso ?
preciso implementar uma progress bar no meu projeto, porem só quero que a progress bar termine quando a execução do meu metodo estiver concluida.
como eu poderia estar implementando isso ?
Jean Teixeira
Curtidas 0
Respostas
Gilmar Moraes
24/11/2012
pessoal ,
preciso implementar uma progress bar no meu projeto, porem só quero que a progress bar termine quando a execução do meu metodo estiver concluida.
como eu poderia estar implementando isso ?
preciso implementar uma progress bar no meu projeto, porem só quero que a progress bar termine quando a execução do meu metodo estiver concluida.
como eu poderia estar implementando isso ?
Cara já procurei isso tbm, achei procedimento bem complicados, onde vc atribuida cada criação de form ou um carregamento, fragmentava o tempo com pausa até o carregamento e depois liberava a outra etapa..como disse meio complicado más não impossivel, tentei implementar más não conseguí nada satisfatório..
GOSTEI 0
Jean Teixeira
24/11/2012
pois é não achei nada voltado para isso , mais alguem conhece algum meio ?
GOSTEI 0
Emerson Nascimento
24/11/2012
você pode tentar:
suponha que seu método terá 12 passos (calculo de algum valor, depois criação de uma classe, etc...)
no início do método você atribui 12 à propriedade Max e 0 à propriedade Position.
e DEPOIS de cada passo completado você soma 1 à propriedade Position.
assim:
procedure X(sender: TObject);
begin
ProgressBar1.Max := 12;
ProgressBar1.Position := 0;
ProgressBar1.Step := 1;
// passo 1
var1 := GetValue(ComboBox1.ItemIndex); // obtem o saldo financeiro no armazem selecionado.
ProgressBar1.StepIt; // incrementa a barra
// passo 2
[bla bla bla]
ProgressBar1.StepIt; // incrementa a barra
[etc...]
end;
suponha que seu método terá 12 passos (calculo de algum valor, depois criação de uma classe, etc...)
no início do método você atribui 12 à propriedade Max e 0 à propriedade Position.
e DEPOIS de cada passo completado você soma 1 à propriedade Position.
assim:
procedure X(sender: TObject);
begin
ProgressBar1.Max := 12;
ProgressBar1.Position := 0;
ProgressBar1.Step := 1;
// passo 1
var1 := GetValue(ComboBox1.ItemIndex); // obtem o saldo financeiro no armazem selecionado.
ProgressBar1.StepIt; // incrementa a barra
// passo 2
[bla bla bla]
ProgressBar1.StepIt; // incrementa a barra
[etc...]
end;
GOSTEI 0
Jean Teixeira
24/11/2012
muito obrigado fiz alo parecido com isso e deu certo!
GOSTEI 0
Alisson Santos
24/11/2012
Post Concluido, qualquer duvida nos informar.
GOSTEI 0