Drag'n'drop папки в TListBox

@__bool · Регистрация: 13.06.2010

Author24 — интернет-сервис помощи студентам

Всем доброго времени суток.
Подскажите пожалуйста как реализовать drag'n'drop папки в TListBox (кидаем папку, получаем ее содержимое)

Файлы принимаю так:

C++

void __fastcall TMainForm::WMDropFiles(TWMDropFiles &Message)
{
    wchar_t path[MAX_PATH];
    HDROP drop=(HDROP)Message.Drop;
    UINT nFiles = DragQueryFile(drop,0xFFFFFFFF,NULL,MAX_PATH);
    for(int i=0;i<nFiles;++i){
        DragQueryFile(drop,i,path,sizeof(path));
        ListBox1->Items->Add(path);
    }
    DragFinish(drop);
}

В попытках найти информацию по данному вопросу нашел такой код:

C++

HRESULT __stdcall CDropTarget::Drop(IDataObject *pDataObject, DWORD grfKeyState, POINTL pt, DWORD *pdwEffect)
{
FORMATETC fm = {0};
fm.cfFormat = CF_HDROP;
fm.tymed = TYMED_HGLOBAL;
fm.dwAspect = DVASPECT_CONTENT;
STGMEDIUM stg = {0};
HDROP drop = {0};
WCHAR szBuffer[MAX_PATH] = {0};
 
pDataObject->GetData(&fm, &stg);
drop = (HDROP)GlobalLock(stg.hGlobal);
int count = DragQueryFile(drop, 0xFFFFFFFF, NULL, 0);
for (int i=0; i < count; i++)
{
DragQueryFile(drop, i, szBuffer, MAX_PATH);
MessageBox(0, szBuffer, 0, 0);
}
GlobalUnlock(std.hGlobal);
ReleaseStgMedium(&stg);
return S_OK;
}

Большую часть кода понять не удалось, да и параметры спугнули,
но так как у Message (TWMDropFiles) тоже 4 параметра, я попытался преобразовать их в требуемые, но ничего не вышло.
Надеюсь на вашу помощь.
Заранее благодарен за ответы.

@Gremlin · 12.10.2011, 16:57

*.h

C++

//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <FileCtrl.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TFileListBox *FileListBox1;
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
    void __fastcall WmDropFiles(TWMDropFiles& Message);
    BEGIN_MESSAGE_MAP
        MESSAGE_HANDLER(WM_DROPFILES, TWMDropFiles, WmDropFiles)
    END_MESSAGE_MAP(TForm)
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

*.cpp

C++

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    DragAcceptFiles(FileListBox1->Handle , true);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::WmDropFiles(TWMDropFiles& Message)
{
    char buffX[MAX_PATH];
    HDROP hDrop = (HDROP)Message.Drop;
    //int numFiles = DragQueryFile(hDrop, -1, NULL, NULL); // количество
 
        DragQueryFile(hDrop, 0, buffX, sizeof(buffX)); // берем нулевой элемент
        if(DirectoryExists(buffX))
        {
 
            FileListBox1->Directory = (buffX);
            FileListBox1->Update();
        }
 
    DragFinish(hDrop);
 
}
//---------------------------------------------------------------------------

LK · 12.10.2011, 17:03

я бы оставил это vc в покое и почитал Примеры использования Drag and Drop для различных визуальных компонентов, обратите внимание на

Pascal

// дана реализация для одного файла, а 
  //если предполагается принимать группу файлов, то можно добавить:
  //num:=DragQueryFile(h,Dword(-1),nil,0);
  //for i:=0 to num-1 do begin
  //  DragQueryFile(h,i,pchr,maxlen);
  //...обработка каждого
  //end;

@__bool · 12.10.2011, 18:28 **[ТС]**

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

C++

1	if(DirectoryExists(path))

Спасибо! И как же я сразу не догадался...
самый верный способ - проверять дирриктория ли это))
А там уже FindFirstFile, FindSecondFile

	12.10.2011, 18:28