Скачать: CL | DM;

Перетаскивание звукового файла на ListBox   Найти похожие ветки 

← →
ronyn   (2005-07-04 20:17) [0]

Мне предложили для перетаскивания на моём плеере такой код:

protected
   procedure CreateParams(var Params: TCreateParams); override;
private
   procedure WMDropFiles(var Message: TWMDropFiles); message WM_DROPFILES;  
...

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

procedure TForm.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 хранится путь и название файла, тут добавляешь как тебе надо и куда надо
      end;
     end;
     DragFinish(Message.Drop);
end;

Курсор принимает вид как при перетаскивании но файл не добавляется. В чём ошибка? Заране благодарен.

---

← →
Eraser ©   (2005-07-04 20:53) [1]

ronyn   (04.07.05 20:17)

мож. поможет http://www.delphimaster.ru/articles/dragndrop/index.html

---

← →
ronyn   (2005-07-05 00:07) [2]

нужно решение в конкретном примере.

---

← →
Nes ©   (2005-07-05 00:43) [3]

Проверил, всё работает,может ты не правильно " добавляешь как тебе надо и куда надо"? напиши весь код...

---

← →
Antonn ©   (2005-07-05 09:46) [4]

Где-то я это видел...

> //В aFile хранится путь и название файла, тут
> добавляешь как тебе надо и куда надо

тут вставляй listbox.items.add(aFile);

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c