WM_MENUDRAG, WM_MENUGETOBJECT, WM_MENURBUTTONUP

[neolithos]

Ich experimentiere derzeitige mit Menü's. Nun wollte meine Menüeinträge per Drag & Drop verschieben lassen. Also hab ich in der MSDN nachgeschaut und auch etwas gefunden. Leider funktioniert es nicht so wie es dort beschrieben wurde.

Mittels SetMenuInfo Drag&Drop aktivieren.

Ich erhalte WM_MENUDRAG und gebe MND_CONTINUE zurück, erhalte aber nie WM_MENUGETOBJECT.

Was mach ich falsch?

[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!

[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;