| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Файл в список воспроизведения [D7, WinXP]

keni ©   (2006-04-29 17:18:00) 

Вот почти доделал плеер, осталось несколько моментов!
Один из них:
Как сделать, чтобы приперемещении файла/папки в список воспроизведения в этот список этот файл/файлы в папки добавлялись?

---

keni   (2006-05-02 19:20:00) [1]

спасиб, щас попробую

---

antonn   (2006-05-02 17:36:00) [2]

Virgo_Style ©   (30.04.06 14:18) [5]
угу, хороший телепатор:)

keni ©   (02.05.06 16:36) [7]
у нужной формы добавь:
protected
    procedure CreateParams(var Params: TCreateParams); override;
private
    procedure WMDropFiles(var Message: TWMDropFiles); message WM_DROPFILES;

...
implementation
...
procedure TF_PlayList.CreateParams(var Params: TCreateParams);
begin
inherited
CreateParams(Params);
Params.ExStyle := Params.ExStyle or WS_EX_ACCEPTFILES;
end;

procedure TF_PlayList.WMDropFiles(var Message: TWMDropFiles);
var aFile: array [0..255] of Char;
       FilesCount,N : Integer;
begin
     inherited;
FilesCount := DragQueryFile(Message.drop, $FFFFFFFF, nil, 0);
      begin
      for N := 0 to FilesCount - 1 do begin
       DragQueryFile(Message.drop, N, aFile, 256);
       //aFile - это полный путь и имя перетаскиваемого объекта.
       //остается лишь узнать, что это, папка или файл
       //и добавить его куда надо, например так:
       //listbox.items.add(aFile);
       end;
      end;
      DragFinish(Message.Drop);
end;

---

keni   (2006-05-02 16:36:00) [3]

> antonn ©   (30.04.06 06:29) [3]

Как сделать,чтоб из проводника в мой ListBox запихнуть файл?
или так:
Как узнать, что над моим ListBox'ом пользователь перестал перемещать файл->узнать резмещение файла и добавить в мой Бокс

---

antonn   (2006-04-30 14:21:00) [4]

Virgo_Style ©   (30.04.06 14:18) [5]
listbox.items.add('тыры-пыры');там тоже есть:)

---

Virgo_Style   (2006-04-30 14:18:00) [5]

А мой телепатор на WM_DropFiles указывает

---

vrem   (2006-04-30 07:54:00) [6]

>  [3] antonn ©   (30.04.06 06:29)

Что за группа? :)

---

antonn   (2006-04-30 06:29:00) [7]

listbox.items.add('тыры-пыры');
вопрос совсем не конкретный...

ЗЫ если плейлистом "плотно" еще не занимались, попробуйте это:
http://an-files.narod.ru/TagInfo_iPlayList.rar144Кб
там ПЛ и демо, но работает компонент только на D7 и закрыты исходники. И нет полосы прокрутки:)

---

keni   (2006-04-29 20:26:00) [8]

ListBox

---

antonn   (2006-04-29 18:23:00) [9]

а как реализован список вопроизведения?

---

Наверх