Добавление в приложение функционала Drag-n-Drop/Drag-n-Dock

void __fastcall TForm1::ListBox2DragOver(TObject *Sender, TObject *Source, int X,
          int Y, TDragState State, bool &Accept)
{
    // принимать D&D только если перетягивается что-то из ListBox-а
    Accept = (Source->ClassNameIs("TListBox") && static_cast<TListBox*>(Source)->ItemIndex > -1);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ListBox2DragDrop(TObject *Sender, TObject *Source, int X,
          int Y)
{
    TListBox *src = static_cast<TListBox*>(Source);
    TListBox *targ = static_cast<TListBox*>(Sender);
    // Все выделенные элементы в источнике, которых в приемнике
    // еще нет, добавляем в приемник (дубликаты отсекаем)
    for(int i = 0; i < src->Count; i++)
    {
        if(src->Selected[i] && targ->Items->IndexOf(src->Items->Strings[i]) < 0)
        {
            targ->Items->Add(src->Items->Strings[i]);
        }
    }
}

// заголовочный файл
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TListBox *ListBox1;
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall FormDestroy(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
 
protected:
    void __fastcall WMDropFiles(TWMDropFiles &Message);
    BEGIN_MESSAGE_MAP
        MESSAGE_HANDLER(WM_DROPFILES, TWMDropFiles, WMDropFiles);
    END_MESSAGE_MAP(TForm);
};

// реализация
void __fastcall TForm1::WMDropFiles(TWMDropFiles &Message)
{
    HDROP drop_handle = (HDROP)Message.Drop;
    TCHAR fName[256];
 
    // количество перетягиваемых файлов
    int count = DragQueryFile(drop_handle, -1, NULL, NULL);
    for (int i=0; i<count; i++)
    {
        // Получаем имя каждого файла
        DragQueryFile(drop_handle, i, fName, 256);
        // и обрабатываем его нужным образом (для примера - просто добавляем в ListBox)
        ListBox1->Items->Add(fName);
    };
    DragFinish(drop_handle);
}
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    // уведомляем систему о том, что наша форма умеет обрабатывать WM_DROPFILES
    DragAcceptFiles(this->Handle, true);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
    // ну, и по привычке, чистим за собой перед выходом
    DragAcceptFiles(this->Handle, false);
}

// Заголовочный файл
 
class TForm1 : public TForm, public IDropTarget
{
__published: // IDE-managed Components
 
    TListBox *ListBox1;
    TMemo *Memo1;
 
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall FormDestroy(TObject *Sender);
 
private: // User declarations
public : // User declarations
    __fastcall TForm1(TComponent* Owner);
 
protected:
    void __fastcall WMDropFiles(TWMDropFiles &Message);
        BEGIN_MESSAGE_MAP MESSAGE_HANDLER(WM_DROPFILES, TWMDropFiles, WMDropFiles);
    END_MESSAGE_MAP(TForm);
 
    // IUnknown
    STDMETHOD_(ULONG, AddRef)()
    {
        return 1;
    }
 
    STDMETHOD_(ULONG, Release)()
    {
        return 1;
    }
 
    // IDropTarget
    STDMETHOD(DragEnter)(LPDATAOBJECT pDataObj, DWORD grfKeyState, POINTL pt, LPDWORD pdwEffect);
    STDMETHOD(DragOver)(DWORD grfKeyState, POINTL pt, LPDWORD pdwEffect);
    STDMETHOD(DragLeave)();
    STDMETHOD(Drop)(LPDATAOBJECT pDataObj, DWORD grfKeyState, POINTL pt, LPDWORD pdwEffect);
};

// Реализация TForm1::WMDropFiles приведена выше, она не изменилась 
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    OleInitialize(0);
    // Регистрируем окно, как приемник Drag-n-Drop операций
    OleCheck(RegisterDragDrop(this->Handle, this));
 
    // уведомляем систему о том, что наша форма умеет обрабатывать еще и WM_DROPFILES
    DragAcceptFiles(this->Handle, true);
}
// ---------------------------------------------------------------------------
 
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
    // ну, и по привычке, чистим за собой перед выходом
    DragAcceptFiles(this->Handle, false);
 
    // Заодно прекращаем регистрацию приемника
    RevokeDragDrop(this->Handle);
    OleUninitialize();
 
}
// ---------------------------------------------------------------------------
 
// Реализация методов интерфейса IDropTarget
STDMETHODIMP TForm1::DragEnter(LPDATAOBJECT pDataObj, DWORD grfKeyState,
    POINTL pt, LPDWORD pdwEffect)
{
    *pdwEffect = DROPEFFECT_COPY;
    return S_OK;
}
// ---------------------------------------------------------------------------
 
STDMETHODIMP TForm1::DragOver(DWORD grfKeyState, POINTL pt, LPDWORD pdwEffect)
{
    *pdwEffect = DROPEFFECT_COPY;
    return S_OK;
}
// ---------------------------------------------------------------------------
 
STDMETHODIMP TForm1::DragLeave()
{
    return S_OK;
}
// ---------------------------------------------------------------------------
 
// Основной метод - при отпускании объекта на форме вызывается именно он
STDMETHODIMP TForm1::Drop(LPDATAOBJECT pDataObj, DWORD grfKeyState, POINTL pt,
    LPDWORD pdwEffect)
{
    FORMATETC fmtetc;
    fmtetc.cfFormat = CF_UNICODETEXT; // или просто CF_TEXT, если собирается неюникодный проект
    fmtetc.ptd = NULL;
    fmtetc.dwAspect = DVASPECT_CONTENT;
    fmtetc.lindex = -1;
    fmtetc.tymed = TYMED_HGLOBAL;
 
    STGMEDIUM medium;
    // получаем данные из перетягиваемого объекта
    HRESULT hr = pDataObj->GetData(&fmtetc, &medium);
 
    // если при этом не было ошибки
    if (!FAILED(hr))
    {
        HGLOBAL hTxt = medium.hGlobal;
        // то вытягиваем текст, который перетянули на форму
        LPCTSTR pData = (LPCTSTR)GlobalLock(hTxt);
 
        // и заносим его в Memo
        Memo1->Text = pData;
        
        // после чего разблокируем память
        GlobalUnlock(hTxt);
        // и освобождаем Storage medium
        ReleaseStgMedium(&medium);
    }
    else // если была ошибка при получении данных из IDataObject
    {
        *pdwEffect = DROPEFFECT_NONE;
        // то ничего не делаем и возвращаем код этой ошибки
        return hr;
    }
    return S_OK;
}

            case WM_MOUSEMOVE: // в случае, если пользователь перемещает мышь над Memo
                // и кнопка мыши нажата
                if (fMouseDown)
                {
                    IDataObject *pDataObject;
                    IDropSource *pDropSource;
                    DWORD dwEffect;
                    DWORD dwResult;
 
                    FORMATETC fmtetc =
                        {CF_UNICODETEXT, 0, DVASPECT_CONTENT, -1, TYMED_HGLOBAL}; // CF_TEXT для BCB 6 - 2007
                    STGMEDIUM stgmed =
                        {TYMED_HGLOBAL, {0}, 0};
 
                    // Перемещаем выделенный в Memo текст в IDataObject
                    stgmed.hGlobal = CopySelection();
 
                    // Создаем экземпляры COM-объектов IDataObject и IDropSource
                    CreateDropSource(&pDropSource);
                    CreateDataObject(&fmtetc, &stgmed, 1, &pDataObject);
 
                    // Начинаем операцию Drag-n-Drop
                    dwResult = DoDragDrop(pDataObject, pDropSource,
                        DROPEFFECT_COPY | DROPEFFECT_MOVE, &dwEffect);
                    // В случае успеха
                    if (dwResult == DRAGDROP_S_DROP)
                    {
                        if (dwEffect & DROPEFFECT_MOVE)
                        {
                            // Если текст был именно перенесен, а не скопирован
                            // (при выполнении Drag-n-Drop была зажата кнопка Alt, 
                            // а не Ctrl) - удалить выделенный текст из Memo
                            this->SelText = "";
                        }
                    }
                    // операция переноса отменена
                    else if (dwResult == DRAGDROP_S_CANCEL)
                    {
                    }
                    pDataObject->Release(); // и удаляем все объекты
                    pDropSource->Release();
 
                    ReleaseCapture();
                    fMouseDown = FALSE;
                    fDidDragDrop = TRUE;
                }
                break;