Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Перетаскивание звукового файла на ListBox [D7, WinXP]

ronyn © (2005-07-04 20:17:00)
Мне предложили для перетаскивания на моём плеере такой код:

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;

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

Antonn (2005-07-05 09:46:00) [1]
Где-то я это видел...

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

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

Nes (2005-07-05 00:43:00) [2]
Проверил, всё работает,может ты не правильно " добавляешь как тебе надо и куда надо"? напиши весь код...

ronyn (2005-07-05 00:07:00) [3]
нужно решение в конкретном примере.

Eraser (2005-07-04 20:53:00) [4]
ronyn (04.07.05 20:17)

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

Наверх

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