WM_MENUDRAG, WM_MENUGETOBJECT, WM_MENURBUTTONUP

[neolithos]

Änderung:

Delphi-Quellcode:

  with PMenuGetObjectInfo(Message.LParam)^ do
    if IsEqualGUID(riid^, IDropTarget) then
       begin
         pvObj := Pointer(Self as IDropTarget);
         Message.Result := MNGO_NOERROR;
       end
    else
       Message.Result := MNGO_NOINTERFACE;