Thema: Delphi Drag&Drop mit TMenuItem

Einzelnen Beitrag anzeigen

Benutzerbild von MarcoWarm
MarcoWarm

Registriert seit: 10. Sep 2003
Ort: Großhennersdorf
532 Beiträge
 
Delphi 10.1 Berlin Professional
 
#6

Re: Drag&Drop mit TMenuItem

  Alt 10. Sep 2008, 12:47
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
Marco Warm
TUO
TheUnknownOnes.net
  Mit Zitat antworten Zitat