Barra de Progresso
09/02/2006
0
procedure Dados(Barra: TProgressBar);
Por que nem todos funcionam.
Como faço para resolver isso??
Rudá
Posts
09/02/2006
Motta
algo assim
procedure Pula (barra : TObject,passo,integer); begin if barra is TProgressBar then TProgressBar(barra).StepBy(passo); if barra is TBarraQualquer then TBarraQualquer(barra).PulaPula(passo); // outra barra end;
Como os métodos devem variar um if para cada barra, não me ocorre outra solução.
09/02/2006
Rudá
Eu pensei em fazer assim.
procedure TForm1.Dados(var Posicao: Integer);
begin
Posicao:= 100;
end;
E na hora de executar fazer isso
procedure TForm1.Button1Click(Sender: TObject);
begin
Dados(ProgressBar.Position);
end;
Da o erro na hora de copilar [b:c4e74a450d]Constant object cannot be passed as var parameter[/b:c4e74a450d] na linha [b:c4e74a450d]Dados(ProgressBar.Position);[/b:c4e74a450d]
Tem como ver isso???
10/02/2006
Motta
Como será usado ? Por outros ?
Como os métodos diferem para as Classes não vejo como fazer algo generico.
10/02/2006
Delphi32
Não sei se te ajuda, mas fora a opção dada pelo Motta, essa é a única maneira que consegui imaginar...
t+!
10/02/2006
Rudá
10/02/2006
Delphi32
uma outra opção, mas que eu acho que você não vai querer usar, seria a de colocar uma propriedade ProgressBar no componente... O problema é que dessa maneira você vai restringir somente a esse componente...
t+!
10/02/2006
Gandalf.nho
10/02/2006
Rudá
Nesse evento coloquei a posição, ai o cara que for usar pega a posicao e manda para o seu componente;
Valeu pela ajuda pessoa.
Clique aqui para fazer login e interagir na Comunidade :)