Рекомендуемый вид формы приведен на рис. 1.43.

Рис. 1.43. Компонент Panel 1 используется в качестве экрана для отображения анимации

{ Отображение сопровождаемой звуком анимации
при помощи компонента MediaPlayer )unit UsMP_;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, MPlayer, StdCtrls, ExtCtrls;type
TForml = class(TForm)
MediaPlayerl; TMediaPlayer; // универсальный проигрыватель
Panell: TPanel; // панель, на которую выводится анимация
Buttonl: TButton; // кнопка Ok Labell: TLabel; procedure ButtonlClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations j
public
/ Public declarations }
end;var
Forml: TForml;implementation{$R *.DFM}I
Во время создания формы надо настроить
компонент MediaPlayerl:
MediaPlayerl.Display = Panell
MediaPlayerl.Filename = delphi_s.avi — имя файла
MediaPlayerl .AutoOpen » True
MediaPlayerl .Visible - False
// щелчок на кнопке OK
procedure TForml.ButtonlClick(Sender: TObject);
begin
MediaPlayerl.Play; // воспроизведение анимации
end;procedure TForml.FormCreate(Sender: TObject);
begin
l Размер области отображения анимации
должен соответствовать размеру анимации.
Размер анимации в файле delphi_s.avi
60x60 } // зададим размер области вывода анимации
MediaPlayerl.DisplayRect:=Rect(0,0,60,60);
end;end.