Воспроизведение анимации сопровождаемой звуком
Листинг 11.4. Воспроизведение анимации, сопровождаемой звуком
uses
Windows, Messages, SysUtils,
Classes, Graphics, Controls,
Forms, Dialogs, MPlayer, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Label1: TLabel; // информационное сообщение
Panel1: TPanel; // панель, на которую выводится анимация
Button1: TButton; // кнопка OK
MediaPlayer1: TMediaPlayer; // универсальный проигрыватель
procedure ButtonlClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations ) public
{ Public declarations } end;
var
Form1: TForm1 ;
implementation
($R *.DFM}
procedure TForm1.ButtonlClick(Sender: TObject);
begin
MediaPlayer1.Play; // воспроизведение анимации
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
// зададим размер области вывода анимации
// на поверхности формы
MediaPlayer1.DisplayRect:=Rect(0,0,60,60);
end;
end.
Процесс воспроизведения анимации активизируется применением метода Play, что эквивалентно нажатию кнопки Play в случае, если кнопки компонента MediaPlayer доступны пользователю.
