Drag and Drop папки

[AmbaQ]

Здравствуйте! сть вопрос, как организовать драг анд дроп целой папки, в ней должны быть файлы, эти файлы должны быть занесены в лисбокс. Что необходимо сделать?

[Stilet]

Что необходимо сделать?

Для начала почитать и попробовать примеры:
http://www.delphiworld.narod.ru/base/tdropper_comp.html
http://www.delphiworld.narod.ru/base...iles_list.html
http://www.delphiworld.narod.ru/base/wm_dropfiles.html

[HellMercenariess]

Сообщение от Stilet

попробовать примеры:
http://www.delphiworld.narod.ru/base/tdropper_comp.html
http://www.delphiworld.narod.ru/base...iles_list.html
http://www.delphiworld.narod.ru/base/wm_dropfiles.html

Здравствуй Stilet! Неплохие статейки. Но вот в этом месте ругается:

procedure TForm1.WMDROPFILES(var Msg: TMessage);
var
  i, amount, size: integer;
  Filename: PChar;
begin
  inherited;
  Amount := DragQueryFile(Msg.WParam, $FFFFFFFF, Filename, 255);
  for i := 0 to (Amount - 1) do
  begin
    size := DragQueryFile(Msg.WParam, i, nil, 0) + 1;
    Filename := StrAlloc(size);
    DragQueryFile(Msg.WParam, i, Filename, size);
    listbox1.items.add(StrPas(Filename));
    StrDispose(Filename);
  end;
  DragFinish(Msg.WParam);
end;

не знает, что такое wParam

Пертаскиевание нескольки файлов я уже реализовал, хотя в теме D&D, недалеко от автора топика ускакал..

[Marsel737]

Ну наверно нужно в uses дописать ShellAPI

[HellMercenariess]

Сообщение от Marsel737

Ну наверно нужно в uses дописать ShellAPI

Есть уже.. Без ШеллАпи уже здесь стопает: DragQueryFile

[GunSmoker]

Похоже, TMessage конфликтует с кем-то. Попробуйте добавить Windows. к нему.

[Stilet]

HellMercenariess

Прикольную ты себе колдобину нашел )
Вот проверено и использовано:
http://www.programmersforum.ru/showthread.php?t=16971

[HellMercenariess]

Сообщение от GunSmoker

Похоже, TMessage конфликтует с кем-то. Попробуйте добавить Windows. к нему.

вышла небольшая путаница с параметрами, делаю по разным мануалам:
http://www.delphiworld.narod.ru/base/wm_dropfiles.html
http://programmersforum.ru/showthread.php?t=2721

1 WMDropFiles(var Msg: TWMDropFiles);
2 WMDropFiles(var Msg: TMessage);

В первом случае не знает что такое wParam во втором Msg.Drop
так получается или папку киадешь или файлы ??

[GunSmoker]

Ну так wParam - это ж и есть Msg.Drop.

P.S. Инопланетная нумерация снизу вверх - это специально, чтобы запутать, да?

[HellMercenariess]

Как проверить, что перетаскивают - файлы или папку ?

Ну так wParam - это ж и есть Msg.Drop.

Компилятор думает иначе..