Code: Alles auswählen.
CASE drag_drop_object->effect.
WHEN cl_dragdrop=>copy.
MESSAGE i000(vz) WITH 'COPY'.
WHEN cl_dragdrop=>move.
MESSAGE i000(vz) WITH 'MOVE'.
ENDCASE.
Code: Alles auswählen.
CLASS lcl_dragdrop_receiver DEFINITION.
PUBLIC SECTION.
METHODS:
*-- Drag'n'Drop
flavor_select
FOR EVENT on_drop_get_flavor
OF cl_gui_list_tree
IMPORTING node_key flavors drag_drop_object,
beleg_drag
FOR EVENT on_drag
OF cl_gui_list_tree
IMPORTING node_key item_name drag_drop_object,
gruppe_drop
FOR EVENT on_drop
OF cl_gui_list_tree
IMPORTING node_key drag_drop_object,
drop_complete
FOR EVENT on_drop_complete
OF cl_gui_list_tree
IMPORTING node_key drag_drop_object.
ENDCLASS.