Форум: "Media";
Текущий архив: 2005.11.27;
Скачать: [xml.tar.bz2];
Вниз
Перетаскивание звукового файла на 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 вся ветка
Форум: "Media";
Текущий архив: 2005.11.27;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.014 c
