Drag&Drop mit TMenuItem

[MarcoWarm]

Hallo,
vielleicht ein bissl spät geantwortet von mir
Es ist mit Bordmitteln möglich. Leider unterstützt die VCL keine Drag'n'Drop Menüs. Aber mit ein bissl Bastelei klappt es ganz gut.
Der Code ist recht umfangreich. Wer ihn will, soll mir bitte einfach ne PM schicken. Dann schreib ich ein kleines Demoprogramm.
Schritt für Schritt:

• dem Hauptmenü den Style MNS_DRAGDROP setzen
• im Formular das Ereignis WM_MENUDRAG abfangen
• darin ein IDataObject (Unit ActiveX) anlegen, welches deinen Meüeintrag repräsentiert
• mit DoDragDrop oder (vielleicht besser noch) SHDoDragDrop eine Drag'n'Drop Schleife starten

beim ListView musst du dich dann auf ein OLE Drop einrichten.

Hoffentlich nicht zu kompliziert.

gruß
Marco