Компоненты доступа к базам данных. Компоненты представленя данных

End.

Begin

Begin

Implementation

Var

Private

Type

Uses

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

Windows, Messages, SysUtils,

Classes, Graphics, Controls,

Forms, Dialogs, MPlayer, StdCtrls, ExtCtrls;

TForm1 = class (TForm)

Label1: TLabel; // информационное сообщение

Panel1: TPanel; // панель, на которую выводится анимация

Button1: TButton; // кнопка OK

MediaPlayer1: TMediaPlayer; // универсальный проигрыватель

procedure ButtonlClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

{ Private declarations) public

{ Public declarations } end;

Form1: TForm1;

($R *.DFM}

procedure TForm1.ButtonlClick(Sender: TObject);

MediaPlayer1.Play; // воспроизведение анимации

end;

procedure TForm1.FormCreate(Sender: TObject);

// зададим размер области вывода анимации

// на поверхности формы

MediaPlayer1.DisplayRect:=Rect(0,0,60,60);

end;

Процесс воспроизведения анимации активизируется применением метода Play, что эквивалентно нажатию кнопки Play в случае, если кнопки компонента MediaPlayer доступны пользователю.

Дата добавления: 2014-01-20