Основы языка Delphi

         

Воспроизведение анимации сопровождаемой звуком



Листинг 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 доступны пользователю.



Содержание раздела