Логин: Пароль:    Регистрация Всеми возможностями сайта можно пользоваться
только после авторизации.
   Забыли пароль?

Поиск
L



Статистика
u
Пользователи онлайн: нет
Гостей онлайн: 3
Всего онлайн: 3
Зарегистрировано юзеров: 5977
Комментариев на сайте: 630
Новый юзер: deenama2



Последние комментарии
c
Theihpled прокомментировал "Урок 62 - Методы, наследование классов, операции с классами Delphi, (часть 4/6)":
Здравствуйте, Савельев Александр. У меня к вм небольшой вопрос по языку https://cloud.mail.ru/public/KFS1/dYUrFbaTU . Cпасибо за уроки.
Theihpled прокомментировал "Урок 54 - Потоки в Delphi, (часть 2/3)":
Кстати да. С потоками тоже ничего не вышло.



Мы в соцсетях
c
Delphi
Урок 47 - Пишем MediaPlayer, часть(7/7)

   Этот урок будет завершающим, мы добавим функцию Drag-and-drop и доделаем интерфейс.

   Используя 40 урок добавим возможность добавлять файлы в плей-лист перетаскивание их на программу.
   Все делаем точно также как описано в уроке, но немного подправим процедуру TForm1.WmDropFiles(var Msg: TWMDropFiles);

procedure TForm1.DropFile(var Msg: TWMDropFiles);
var
	CFileName: array[0..MAX_Path] of Char;
begin
	try
		if DragQueryFile(Msg.Drop, 0, CfileName, MaX_Path)>0 then
		begin
			AddFiles(CFileName); // Добавляем файл
			Msg.Result:=0;
		end;
	finally
		DragFinish(msg.Drop);
	end;
end;
   Теперь последнее, попробуйте растянуть программу, все компоненты остаются на своих местах, а должны бать привязаны к краям формы.

Внешний вид


Для этого служит свойство Anchors у неё 4 параметра:
  • akLeft - привязка к левой стороне
  • akTop - привязка к верху
  • akRight - привязка к правой стороне
  • akBottom - привязка к низу
   Например для кнопок "Открыть" и "Сохранить" Параметры будут такие:
  • akLeft - False
  • akTop - False
  • akRight - True
  • akBottom - True
   Вот что получится:

Внешний вид


   А для ListBox1:
  • akLeft - True
  • akTop - True
  • akRight - True
  • akBottom - True
   Привязка ко всем сторонам. Для кнопок "+" и "-":
  • akLeft - True
  • akTop - False
  • akRight - False
  • akBottom - True
   Для кнопок "Открыть", "Играть", "Стоп", "Пауза" и ползунка громкости:
  • akLeft - False
  • akTop - True
  • akRight - True
  • akBottom - False
   И надо не забыть скрыть ListBox2, свойство Visible установим в False.

   Плеер готов!!! Вот что у нас получилось за 7 уроков:

Внешний вид


   Эта библиотека содержит в себе еще много функции, на объяснение всех ушло бы много времени, тем кому это интересно обязательно посмотрят полное описание всех функций. Ну а мы остановимся на этом.

Удачи!
Встретимся в следующем уроке!


Источник: www.thedelphi.ru
Автор: Савельев Александр
Опубликовано: 31 Мая 2013
Просмотров:

Урок 46 - Пишем MediaPlayer, часть(6/7) Урок 48 - Структурные типы данных, часть (1/2)

Зарегистрируйтесь или авторизуйтесь, чтобы добавлять комментарии.



аватар Добавил: Mikhail [Новичок] Дата: 2013-06-18
У меня возникли два вопроса №1 Как сделать с помощь CheckBox одну песню по кругу проигрывать №2 Так же с помощью CheckBox сделать чтоб музыка играла в разнобой




аватар Добавил(а): Kiril-1997 [Новичок] Дата: 2015-08-17
подскажите как сделать что бы играла следующая/предыдущая песня при нажатии определенных кнопок. И как сделать чтобы музыка играла в разнобой




аватар Добавил(а): Kiril-1997 [Новичок] Дата: 2015-08-17
и было б круто еще сделать поднять/опустить трек