Для того чтобы создать приложение Плеер на Delphi необходимо на форму добавить следующие компоненты(см. рис.):
MediaPlayer1; Кнопку SpeedButton1; OpenDialog1; ProgressBar1; Timer1; Bevel.
 Ниже привожу свойства некоторых компонентов приложения Плеер на Delphi : Cвоства компонента MediaPlayer1 Свойство.............. Значение Name.....................MediaPlayer1 VisbleButton...........btPlay, btPause, btSpop, btStep, btBack Cвойства компонента OpenDialog1 Свойство.......... Значение Name................OpenDialog1 DefaultExt..........mp3 Filter.................|*.MP3||*.WAV||*.AVI||*.MOV||*.QTW| Options.............ofHideReadOnly, ofFileMustExist, ofEnableSizing Title...................Открыть файл мулльтимедиа Свойства компонента Timer1 Свойство Значение Name> Timer1 Enabled> False Interval> 10 И так свойства компонетов приложения Плеер на Delphi мы установили, осталось написать процедуры для нашего приложения. Ниже привожу исходный код для приложения Плеер на Delphi :
|