|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#31
|
|||
|
|||
У меня появился такой вопрос, использую процедуру procedure Dropfile (var msg : TWMDropFiles) ; message WM_Dropfiles;
в listbox, в процедуре написал: Код:
procedure TForm1.Dropfile(var msg: TWMDropFiles); var cfileName :array [0..Max_path] of char; begin try if Dragqueryfile (Msg.Drop, 0, CfileName, Max_path)>0 then begin listbox1.Items.Insert(0,extractfilename(Cfilename)); listbox2.Items.Insert(0,Cfilename); Msg.Result:=0; end; Finally; DragFinish(msg.Drop); end; end; Для того чтобы переносить файлы mp3 в listboX при помощи простого перетаскивания мыши, по одному файлу все работает нормально, но если попробовать перенести несколько файлов, то переносится все равно один. Дак возникает вопрос, а как реализовать перенос нескольких файлов(множество)? наставте на путь истинный) Последний раз редактировалось Admin, 08.04.2012 в 13:11. |