Как сделать бегущую полоску ProgressBar)*
\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
Проще некуда:
После функции Private введите a:integer; Примерно так;
-----------------------------------------------------------------------------------------------------------------
  Private
        a:integer;
        { Private declarations }
-----------------------------------------------------------------------------------------------------------------
Для того чтобы сделать бегущую полоску ProgressBar необходимы
следующие элементы: (Timer1: TTimer), (ProgressBar: TProgressBar).
Пишем програмный код к таймеру (Timer1: TTimer):
------------------------------------------------------------------------------------------------------------------
procedure TForm1.Timer1Timer(Sender: TObject);
begin
a:=a+1;
ProgressBar.Position:=a;
If a=100 Then a:=0;
end;

end.
------------------------------------------------------------------------------------------------------------------
Заместо ProgressBar можно взять и другой элемент из той же группы
например Animate или Gauge. Тогда програмный код будет выглядеть
следующим образом:
------------------------------------------------------------------------------------------------------------------
procedure TForm1.Timer1Timer(Sender: TObject);
begin
a:=a+1;
Gauge1.Progress:=a; 
If a=100 Then a:=0;
end;

end.
-------------------------------------------------------------------------------------------------------------------
или так:
-------------------------------------------------------------------------------------------------------------------
procedure TForm1.Timer1Timer(Sender: TObject);
begin
a:=a+1;
Animate1.StartFrame:=a;
If a=100 Then a:=0;
end;

end.
-------------------------------------------------------------------------------------------------------------------
В данном случае "a"это заменимое числовое значение
Position, Progress и StartFrame - это полжение бегущей полоски или
анимации (здесь оно равно "а");
Строка If a=100 Then a:=0 обозначает возврат полоски в исходное
полжение после того, как она добежит до конца т.е. если позиция
полоски равна 100% то тогда позиция переходит в 0%
--------------------------------------------------------------------------------------------------------------------
)* - Этот элемент уже используется в моих прграммах,
 и вы можете подгрузить их самих и
их проекты на моём сайте по адресам:
http://www.kudruavtsev.narod.ru/del.html
http://www.kudruavtsev.narod.ru/fwork.html
http://www.kudruavtsev.narod.ru/virus.html
http://www.kudruavtsev.narod.ru/stopw.html
http://www.kudruavtsev.narod.ru/loveyou.html

Автор программы, идеи и текста: Кудрявцев Юра (PAYBACK co. #2000)

Internet: http://www.kudruavtsev.narod.ru
Mail-me: backpayback_yura@mail.ru