![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Компонент TMediaPlayer
Компонент TMediaPlayer позволяет управлять различными устройствами мультимедиа, которые имеют MCI (Media Control Interface) совместимый драйвер. Свойства: FileName: TFileName; - имя воспроизводимого файла (*.avi, *.wav, *.mid); AutoOpen: Boolean; - автоматически определять устройство по расширению файла; Display: TWinControl; - задает окно, в котором будет происходить вывод (по умолчанию Display: = nil;). Пример.
Interface Type TForm1 = class (TForm) PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; Timer1: TTimer; Animate1: TAnimate; ProgressBar1: TProgressBar; DateTimePicker1: TDateTimePicker;
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.
|