Для того чтобы создать приложение Плеер на Delphi необходимо на форму добавить следующие компоненты(см. рис.):

 

  • MediaPlayer1;
  • Кнопку SpeedButton1;
  • OpenDialog1;
  • ProgressBar1;
  • Timer1;
  • Bevel.

 Плеер на Delphi

Ниже привожу свойства некоторых компонентов приложения Плеер на Delphi  :

 

Cвоства компонента MediaPlayer1
Свойство Значение
Name MediaPlayer1
VisbleButtons 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  :

Плеер на Delphi

Плеер на Delphi

Так будет выглядеть приложение Плеер на Delphi после запуска

 Плеер на Delphi

Скачать исходник приложения «Плеер на Delphi »:

 

<ahref="https://yadi.sk/d/2mU-IGJFo7b8G" target="_blank" rel="nofollow">

Добавить комментарий


Защитный код
Обновить