delphi-lubitel

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

На нашем сайте вы найдете множество статей на разные тематики, а так же сможете найти и скачать много интересного Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
Стартовая Избранное Главная Контакты Карта сайта
Инфо
Создание mp3 плеера в Delphi 7 - Форум
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: winxaker  
Форум » Программирование » Исходники » Создание mp3 плеера в Delphi 7
Создание mp3 плеера в Delphi 7
A{O}KXДата: Понедельник, 26.07.2010, 21:47 | Сообщение # 1
Рядовой
Группа: Пользователи
Сообщений: 17
Награды: 0
Репутация: 1
Статус: Offline
Для этого вам понадобяться следующие компоненты:

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.

 
Форум » Программирование » Исходники » Создание mp3 плеера в Delphi 7
  • Страница 1 из 1
  • 1
Поиск:

 
Хостинг от uCoz | Адаптировал Grey200009 Число ответ: 57432