如何禁用从 Rich Edit 控件拖动

Question

我使用 CRichEditCtrl 的子类来提供 CEdit+ 类型控件。我想要的一件事是禁用拖放功能，这是基类默认提供的。

禁用拖放很容易： ::RevokeDragDrop(m_hWnd);

但我看不到禁用控件作为拖动源的简单方法。有简单的方法吗？

Answer 1

要覆盖 RichEdit 控件中的启动拖放操作：

1. 实现 IRichEditOleCallback 接口。
2. 实现接口的 GetDragDropEffect() 方法，如下所示：

HRESULT CRichEditOleCallback::GetDragDropEffect( BOOL fDrag, DWORD grfKeyState,
            LPDWORD pdwEffect)
{
    CComPtr<IDataObject> pdata_obj;
    CComQIPtr<IDropSource> psource;
    DWORD dwEffect;

    // You put here your own data-object code....

    DoDragDrop( pdata_obj, psource, DROPEFFECT_COPY|DROPEFFECT_MOVE, &dwEffect);
    // This executes your own drag and drop function.


    return E_ABORT; // !!!! THIS IS ESSENTIALLY IMPORTANT !!!! NOT WRITTEN IN MANUAL !!!!
}

这里最重要的是 return E_ABORT; 这会导致退出默认拖放操作并启动自定义拖放操作。

要覆盖 RichEdit 控件中的接收拖放操作：

1. 实现您自己的 IDropTarget 接口。
2. 注册IDropTarget接口如下：

在RichEdit派生子类函数中创建RichEdit控件后：

CComPtr<IDropTarget> pDropTarget; // this is your own customized drop target.

RevokeDragDrop(m_hWnd); // unregister default IDropTarget interface of Rich Edit.
RegisterDragDrop(m_hWnd, pDropTarget);

本示例覆盖RichEdit的默认放置目标函数。

Answer 2

警告：我远离我的编译器，所以我无法检查这一点。

我也想不出一个简单的方法，但是......

这是一篇关于扩展文本控件以支持拖动的文章。
http://www.code-magazine.com/article。 aspx?quickid=0407031&page=5

是的，这与您想要的完全相反。

但请考虑，它是关于检测指示您要启动拖动操作的鼠标消息。如果您的子类执行了此操作，然后不让 CRichEditCtrl 获取触发拖动的窗口消息，则拖动将不会开始。

可能有用。