Создадим программу просмотра AVI файла С:\Program Files\Borland\Delphi6\Demos\CoolStuf\cool.avi. Расположим на форме компоненты Timer, Animate, ProgressBar, BitBtn.
Установите в свойство Enabled компонента Timer значение False, а в свойство Interval – 100. В свойство Visible компонента ProgressBar значение False.
Опишите следующие процедуры.
procedure TForm1.BitBtn1Click(Sender: TObject);
Begin
animate1.FileName:='D:\Program Files\Borland\Delphi6\Demos\CoolStuf\cool.avi';
animate1.Active:=true;
progressbar1.Show;
timer1.enabled:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
Begin
progressbar1.position:=progressbar1.position+1;
if progressbar1.position>=progressbar1.max then
Begin
timer1.Enabled:=false;
progressbar1.position:=0;
progressbar1.hide;
animate1.Stop;
end;
end;
