WM_MENUDRAG, WM_MENUGETOBJECT, WM_MENURBUTTONUP

[neolithos]

In WM_MENUDRAG rufe ich jetzt DoDropDrop.

Delphi-Quellcode:

  var g : TIID;
    i : IDropTarget;
  with PMenuGetObjectInfo(Message.LParam)^ do
    begin
      g := IDropTarget;
      riid := @g;
      i := Self;
      pvObj := @i;
      Message.Result := MNGO_NOERROR;
    end;

Das erzeugt derzeitig einen Fehler!