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

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; // универсальный проигрыватель

procedureButtonlClick(Sender: TObject);

procedureFormCreate(Sender: TObject);

{ Private declarations )public

{ Public declarations } end;

Form1: TForm1 ;

($R *.DFM}

procedureTForm1.ButtonlClick(Sender: TObject);

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

end;

procedureTForm1.FormCreate(Sender: TObject);

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

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

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

end;

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