Fórum Alguem pode ajudar um simples iniciante? #225185
10/04/2004
0
Bruno Andrade
Curtir tópico
+ 0Posts
10/04/2004
Dbergkamps
coloque uma barra de rolagem e um timer
no evento on timer coloque:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if ScrollBar1.Position<>100 then
ScrollBar1.Position:=ScrollBar1.Position + 20
else
begin
Application.MessageBox(´Chegou ao Final´, ´Fim´, MB_OK + MB_ICONINFORMATION);
Timer1.Enabled:=false;
end;
Lembrando:
A propriedade Max deve estar setada como 100;
Se não for isso, explique-se melhor...
end;
Gostei + 0
10/04/2004
Bruno Andrade
Gostei + 0
10/04/2004
Bruno Andrade
Gostei + 0
10/04/2004
Dbergkamps
basta substituir o scroll bar pelo progress bar 1,
Obs.: Se vc, como eu, está no primeiro software, use os componentes do Flat Style, eles são demais.
Vc pode baixa-los no www.delphi.eti.br
Feliz Páscoa
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)