Анимация должна вос производиться один раз. На рис. 1.42 приведена форма программы.
procedure TForml.FormCreate(Sender: TObject);
begin
try
Animatel.FileName := 'Delphi.avi';
Animatel.Play(0,Animate1.FrameCount,1);
except
on Exception do begin
Labell.Caption :=
'Ошибка доступа к файлу ' +
Animatel.FileName +
'. Файл не найден или анимация1 +
'сопровождается звуком.'
exp-
end;
end;
end;
// щелчок на кнопке Ok
procedure TForml.BitBtnlClick(Sender: TObject);
begin
Forml.Close;
end;
Рис. 1.42. Форма программы Анимация