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

Поиск
L



Статистика
u
Пользователи онлайн: нет
Гостей онлайн: 6
Всего онлайн: 6
Зарегистрировано юзеров: 7938
Комментариев на сайте: 698
Новый юзер: Henryfar



Последние комментарии
c
Dennisvoifs прокомментировал "Урок 3 - Конструкция IF...THEN...ELSE":
Пункт коммерческого учета цена, Ктп комплектные трансформаторные подстанции москва, Производство ктп москва и не только Вы найдете на нашем специализированном сайте: - Вам к нам!https://sviloguzov.ru/
Arthurneime прокомментировал "Урок 53 - Потоки в Delphi, (часть 1/3)":
[img]https://masterfutures.ru/wp-content/uploads/2020/03/14-2.png[/img] Online trading is becoming increasingly popular, as more people learn of the earning potential of platforms such as Broker, a broker which caters to a significant audience of digital traders (12 million and counting). Known for their excellent user interface, as well as fast deposit and withdrawal times, Broker provides multiple features to help traders earn on the markets. This overview will outline just some of the key aspects traders can expect to enjoy whilst working with Broker broker. Online trading is becoming increasingly popular, as more people learn of the earning potential of platforms such as Broker, a broker which caters to a significant audience of digital traders (12 million and counting). Known for their excellent user interface, as well as fast deposit and withdrawal times, Broker provides multiple features to help traders earn on the markets. This overview will outline just some of the key aspects traders can expect to enjoy whilst working with Broker broker. Broker Broker is operated by a dedicated team, whose main priority has always been to provide the best possible user experience, and ultimately satisfaction. Whether experienced in trading or a newcomer, the platform is easy to use and very responsive. The education section deserves special mention, particularly for assisting traders to learn and implement new strategies – which can be tested on the platforms free demo Source: [url=https://bit.ly/35fv3B6/]Broker[/url] https://bit.ly/35fv3B6/ Tags: Broker

Урок 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
и было б круто еще сделать поднять/опустить трек