|
|
Регистрация | << Правила форума >> | 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. |
#32
|
||||
|
||||
получаем количество файлов , потом в цикле выдергиваем пути к файлам, например
Код:
var cfileName :array [0..Max_path] of char; CountFile, i:integer; begin try CountFile:=Dragqueryfile (Msg.Drop, $FFFFFFFF, CfileName, Max_path); for i:=0 to SountFile-1 do if Dragqueryfile (Msg.Drop, i, 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; Последний раз редактировалось cotseec, 08.04.2012 в 10:19. |
Этот пользователь сказал Спасибо cotseec за это полезное сообщение: | ||
sandysman (08.04.2012)
|
#33
|
|||
|
|||
Спасибо, как-то я сам не додумался))
|