Перетаскивание звукового файла на 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]

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

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

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

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

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