Компонент TMediaPlayer содержит некоторое подмножество кнопок, каждая из которых отвечает за определенную операцию. По умолчанию все кнопки являются видимыми.

Программист может управлять перечнем видимых кнопок с помощью свойства:

property VisibleButtons: TButtonSet;

Проигрыватель умеет самостоятельно управлять активностью своих кнопок. Так, если файл мультимедиа не загружен, то все кнопки TMediaPlaye r устанавливаются в пассивное состояние. При желании можно перехватить обязанности по управлению состоянием кнопок. Для этого предназначено свойство:

property AutoEnable: Boolean; //по умолчанию true

Следует установить AutoEnable в false, а затем управлять активностью кнопок в свойстве:

property EnabledButtons: TButtonSet;

По умолчанию кнопки универсального проигрывателя переливаются всеми цветами радуги. Для того чтобы перевести кнопки в черно-белый режим, нужно поработать с массивом:

property ColoredButtons: TButtonSet;

Управление воспроизведением

Щелчок пользователя по кнопке управления проигрывателем приводит к ожидаемому действию (см. табл. 30.4). Этого же результата можно достичь, обратившись из кода программы к определенному (соответствующему кнопке) методу. Для начала воспроизведения загруженного файла мультимедиа следует обратиться к процедуре:

procedure Play; //щелчок по кнопке Play

Приостановку и возобновление воспроизведения обеспечит пара методов:

procedure Pause; procedure Resume;

//щелчок по кнопке Pause //повторный щелчок по кнопке Pause

Переход к следующему треку или возврат к предыдущему:

procedure Next; //кнопка Next

procedure Previous; //кнопка Prev

Прыжок на некоторое количество фреймов вперед или назад осуществят методы:

procedure Step; //кнопка Step

procedure Back; //кнопка Back

Количество фреймов, на которое будет произведено перемещение, определяется свойством:

property Frames: Longint;

Для старта записи предназначена процедура:

procedure StartRecording; //кнопка Record

Запись начинается с текущего местоположения (свойство Position) или из позиции, определенной в свойстве StartPos.

Если медиапроигрыватель воспроизводит файлы с оптического диска, то для извлечения носителя вызывается метод:

procedure Eject; //кнопка Eject

Для установки текущей позиции как отметки начала объекта мультимедиа предназначена процедура:

procedure Rewind;

Это значение будет передано в свойство Start проигрывателя. Если установить в true свойство AutoRewind, то по окончании воспроизведения (записи) объект мультимедиа будет «перемотан» к началу.

property AutoRewind: Boolean;