ProgressBar com Imagem

Question

Ol� pessoal, tudo bem? Espero que sim.Gostaria de tirar uma d�vida com voc�s. Eu tenho um progressbar que vai at� o fim de uma tabela do BD. Consigo fazer ele normal, at� consegui linkar um label ne...

Vin�cius Belis�rio · Answer

creio que sim cara, conforme o position do progressBar for aumentando, voc� aumenta a propriedade left do Label, pra ir acompanhando de acordo com a posi��o do progressBar...

Allan Ramos · Answer

� verdade Vinicius, as vezes se pensa numa solu��o mirabolante que se esquece de fazer as coisas simples hehe.. vou tentar isso e posto aqui. Valeu. Abra�o....

Vin�cius Belis�rio · Answer

opa, posta sim cara, estou curioso pra saber se funciona certinho haha...

Allan Ramos · Answer

Cara, funcionou hehe. Embora ainda n�o tenha ficado perfeito, funcionou. Botei uma imagem e no Loop eu fiz:

Image1.left := (ProgressBar1.Position * 7) - 110;

No caso, come�ando da posi�ao - 110 do progressbar (110 � o tamanho da imagem), ele vai receber a posi�ao multiplicado por 7, pois o progressbar tem tamanho 700, menos o tamanho dele, pra n�o sair fora da barra.

Ainda to tentando adaptar ele melhor, mas funcionou hehe.. Abra�o.

Joao Silva · Answer

a� galera teste este exemplo usando bd, obs: a imagem move de acordo com o tamanho de registros na tabela.

procedure TForm1.Button1Click(Sender: TObject);
var t:integer;
begin
for t := 0 to table1.RecordCount-1 do begin
progressbar1.Min := table1.RecNo;
progressbar1.Max := table1.RecordCount;
progressbar1.Position := t;
image1.Left := t*3;//(progressbar1.Position);//*7);//-110;
end;
table1.Last;
end;

F�rum ProgressBar com Imagem #413859