Компонент TMediaPlayer. Компонент TDateTimePicker

Компонент TDateTimePicker

TDateTimePicker

Компонент TDateTimePicker предназначен для ввода и/или отображения даты и времени.

Свойства:

Date: TDate;

- содержит введенную дату;

DateFormat: TDTDateFormat = (dfShort, dfLong)

- определяет формат показа даты;

Kind: TDate;

TimeKind = (dtkDate, dtkTime);

- определяет содержимое компоненты;

Time: TTime;

- содержит введенное время.

TMediaPlayer

Компонент TMediaPlayer позволяет управлять различными устройствами мультимедиа, которые имеют MCI (Media Control Interface) совместимый драйвер.

Свойства:

FileName: TFileName;

- имя воспроизводимого файла (*.avi, *.wav, *.mid);

AutoOpen: Boolean;

- автоматически определять устройство по расширению файла;

Display: TWinControl;

- задает окно, в котором будет происходить вывод (по умолчанию Display:= nil;).

Пример.

Unit DemoTMediaPlayer;

Interface

Type

TForm1 = class (TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

Timer1: TTimer;

Animate1: TAnimate;

ProgressBar1: TProgressBar;

DateTimePicker1: TDateTimePicker;

BitBtn1: TBitBtn;

MediaPlayer1: TMadiaPlayer;

Procedure PageControl1Change();

Procedure FormCreat();

Procedure Timer1Timer();

Procedure BitBtn1Click();

end;

var

Form1: TForm1;

Implemantation

Procedure TForm1.FormCreate();

begin

Timer1.Interval:= 10;

DateTimePicker1.Date:= Date;

MediaPlayer.AutoOpen:= true;

MadiaPlayer.FileName:= ’...’;

Animate1.FileName:= ’...’;

end;

Procedure TForm1.PageControl1Change();

begin

if PageControl1.ActiveControl = TabSheet1 then

ProgressBar1.Position:= 0;

if PageControl1.ActiveControl = TabSheet2 then

begin

Timer1.Enabled:= false;

Animate1.Active:= false;

ProgressBar1.Position:= 0;

end;

end;

Procedure TForm1.Timer1Timer();

begin

ProgressBar1.Position:= ProgressBar1.Position + 1;

if ProgressBar1.Position >= ProgressBar1.Max then

begin

ProgressBar1.Position:= 0;

Timer1.Enabled:= false;

Animate1.Active:= false;

end;

end;

Procedure TForm1.Timer1Timer();

begin

Animate1.Active:= true;

Timer1.Enabled:= true;

end;

end.

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