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

Поиск
L



Статистика
u
Пользователи онлайн: нет
Гостей онлайн: 1
Всего онлайн: 1
Зарегистрировано юзеров: 6943
Комментариев на сайте: 654
Новый юзер: MatthewMat



Последние комментарии
c
Davidpab прокомментировал "Урок 24 - Изучаем компонент PaintBox":
&#1047;&#1072;&#1082;&#1072;&#1079;&#1072;&#1090;&#1100; seo &#1087;&#1086;&#1080;&#1089;&#1082;&#1086;&#1074;&#1091;&#1102; &#1086;&#1087;&#1090;&#1080;&#1084;&#1080;&#1079;&#1072;&#1094;&#1080;&#1102; &#1089;&#1072;&#1081;&#1090;&#1072;, <a href=http://seoprofisional.ru/bazy>базы для xrumer</a> &#1047;&#1072;&#1082;&#1072;&#1079;&#1072;&#1090;&#1100; &#1091;&#1089;&#1083;&#1091;&#1075;&#1080; &#1087;&#1086; &#1087;&#1088;&#1086;&#1076;&#1074;&#1080;&#1078;&#1077;&#1085;&#1080;&#1102; &#1089;&#1072;&#1081;&#1090;&#1072; &#1055;&#1086; &#1074;&#1089;&#1077;&#1084; &#1074;&#1086;&#1079;&#1085;&#1080;&#1082;&#1096;&#1080;&#1084; &#1074;&#1086;&#1087;&#1088;&#1086;&#1089;&#1072;&#1084; &#1042;&#1099; &#1084;&#1086;&#1078;&#1077;&#1090;&#1077; &#1086;&#1073;&#1088;&#1072;&#1090;&#1080;&#1090;&#1100;&#1089;&#1103; &#1074; &#1089;&#1082;&#1072;&#1081;&#1087; &#1083;&#1086;&#1075;&#1080;&#1085; [b]pokras7777[/b] &#1056;&#1072;&#1089;&#1082;&#1088;&#1091;&#1090;&#1082;&#1072; &#1089;&#1072;&#1081;&#1090;&#1072; &#1087;&#1086;&#1076; &#1082;&#1083;&#1102;&#1095; fhdxxxxxd
Everettrof прокомментировал "Урок 53 - Потоки в Delphi, (часть 1/3)":
Как быть не могу разобраться или тут хочу заказать металлоизделия Делается тут или в другом месте искать навесы из полекарбоната Такие фирмы это делают или я не правильно понимаю, нужно сделать а я вот выбираю и не могу понять,,, сварка металла это же они могут сделать??? https://steelcentury.ru пока на них смотрю

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