delphi-lubitel

Добро пожаловать на наш портал

На нашем сайте вы найдете множество статей на разные тематики, а так же сможете найти и скачать много интересного Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
Стартовая Избранное Главная Контакты Карта сайта
Инфо
mp3 плеер

Наш опрос

Оцените мой сайт
Всего ответов: 528

Статистика


Онлайн всего: 1
Гостей: 1
Пользователей: 0
Создание mp3 плеера в Delphi 7
Для этого вам понадобяться следующие компоненты:

Button вкладка Standard
OpenDialog вкладка Dialogs
MediaPlayer вкладка System

Кидаем на форму эти компоненты и в обработчике событий он клик кнопки(Button) пишем:

MediaPlayer1.Close;
if opendialog1.Execute then
begin
MediaPlayer1.FileName:=opendialog1.FileName;
MediaPlayer1.Open;
end;

В итоге код должен получиться таким :

procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.Close;
if opendialog1.Execute then
begin
MediaPlayer1.FileName:=opendialog1.FileName;
MediaPlayer1.Open;
end;

end;

end.

По нажатию на кнопку Button будет открываться окно в котором нужно выбрать песню

Плеер готов.


Гость для того чтобы скачать "ИСХОДНИК", Вам нужно кликнуть по рекламным ссылкам.
 
Хостинг от uCoz | Адаптировал Grey200009 Число ответ: 57432