Форум: "Media";
Текущий архив: 2006.12.17;
Скачать: [xml.tar.bz2];

Вниз

Файл в список воспроизведения   Найти похожие ветки 

← →
keni ©   (2006-04-29 17:18) [0]

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

---

← →
antonn ©   (2006-04-29 18:23) [1]

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

---

← →
keni ©   (2006-04-29 20:26) [2]

ListBox

---

← →
antonn ©   (2006-04-30 06:29) [3]

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

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

---

← →
vrem   (2006-04-30 07:54) [4]

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

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

---

← →
Virgo_Style ©   (2006-04-30 14:18) [5]

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

---

← →
antonn ©   (2006-04-30 14:21) [6]

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

---

← →
keni ©   (2006-05-02 16:36) [7]

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

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

---

← →
antonn ©   (2006-05-02 17:36) [8]

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 19:20) [9]

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

---

Страницы: 1 вся ветка

Форум: "Media";
Текущий архив: 2006.12.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.039 c