5.Drag & Drop
不同Control之间可以实现drag,drop事件，实现拖动操作。
示例1：drag & drop between alv and tree
"容器对象
DATA:lo_container1 TYPE REF TO cl_gui_docking_container.
DATA:lo_container2 TYPE REF TO cl_gui_docking_container.
"tree对象
DATA:lo_tree TYPE REF TO cl_gui_simple_tree.
"alv对象
DATA:lo_alv TYPE REF TO cl_gui_alv_grid.
"layout
DATA:lv_layout type lvc_s_layo.
"drag & drop操作
DATA:lo_drag_alv TYPE REF TO cl_dragdrop.
DATA:lo_drag_tree TYPE REF TO cl_dragdrop.
"设置字段，清空字段动作
DATA:lo_alv_set TYPE REF TO cl_dragdrop.
DATA:lo_alv_clear TYPE REF TO cl_dragdrop.
"alv表
DATA:lt_out TYPE TABLE OF spfli.
DATA:ls_out LIKE LINE OF lt_out.
"tree表
DATA:lt_tree TYPE TABLE OF mtreesnode WITH DEFAULT KEY.
DATA:ls_tree LIKE LINE OF lt_tree.
"dragdrop传输数据结构
CLASS c_dragdropobj DEFINITION.
PUBLIC SECTION.
DATA:ls_spfli TYPE spfli.
DATA:index TYPE I.
DATA:lv_func TYPE C LENGTH 10.
ENDCLASS.
"dragdrop event
CLASS c_event_handler DEFINITION.
"事件触发顺序:alv drag->tree drop->alv drop complete
"事件触发顺序:tree drag->alv drop->tree drop complete
PUBLIC SECTION.
CLASS-DATA:lv_drag_flag TYPE I.
CLASS-METHODS:m_alv_ondrag FOR EVENT ondrag OF cl_gui_alv_grid
IMPORTING e_row e_column es_row_no e_dragdropobj.
CLASS-METHODS:m_alv_ondrop FOR EVENT ondrop OF cl_gui_alv_grid
IMPORTING e_row e_column es_row_no e_dragdropobj.
CLASS-METHODS:m_alv_ondrop_comp FOR EVENT ondropcomplete OF cl_gui_alv_grid
IMPORTING e_row e_column e_dragdropobj.
CLASS-METHODS:m_tree_ondrag FOR EVENT on_drag OF cl_gui_simple_tree
IMPORTING node_key drag_drop_object.
CLASS-METHODS:m_tree_ondrop FOR EVENT on_drop OF cl_gui_simple_tree
IMPORTING node_key drag_drop_object.
CLASS-METHODS:m_tree_ondrop_comp FOR EVENT on_drop_complete OF cl_gui_simple_tree
IMPORTING node_key drag_drop_object.
ENDCLASS.
CLASS c_event_handler IMPLEMENTATION.
"alv drag
METHOD m_alv_ondrag.
DATA:lo_data TYPE REF TO c_dragdropobj.
"创建数据结构对象
CREATE OBJECT lo_data.
READ TABLE lt_out INTO ls_out INDEX e_row-index.
lo_data->index = e_row-index.
lo_data->ls_spfli = ls_out.
"设置传输数据
e_dragdropobj->object = lo_data.
ENDMETHOD.
"alv drop
METHOD m_alv_ondrop.
DATA:lo_data TYPE REF TO c_dragdropobj.
CATCH SYSTEM-EXCEPTIONS move_cast_error = 1.
lo_data ?= e_dragdropobj->object.
IF lo_data->lv_func = 'COPY'.
READ TABLE lt_out INTO ls_out INDEX e_row-index.
"插入copy行
INSERT ls_out INTO lt_out INDEX e_row-index.
ELSEIF lo_data->lv_func = 'DEL'.
DELETE lt_out INDEX e_row-index.
ENDIF.
ENDCATCH.
IF sy-subrc <> 0.
e_dragDropObj->abort( ).
ENDIF.
ENDMETHOD.
"alv drop complete
METHOD m_alv_ondrop_comp.
DATA:lo_data TYPE REF TO c_dragdropobj.
DATA:ls_stable type lvc_s_stbl.
IF lv_drag_flag = 1.
EXIT.
ENDIF.
CATCH SYSTEM-EXCEPTIONS move_cast_error = 1.
lo_data ?= e_dragdropobj->object.
IF e_dragdropobj->effect = cl_dragdrop=>move.
"删除内表drag行
DELETE lt_out INDEX lo_data->index.
IF sy-subrc = 0.
ls_stable-row = 'X'.
ls_stable-col = 'X'.
lo_alv->refresh_table_display(
EXPORTING
is_stable = ls_stable
).
ENDIF.
ENDIF.
ENDCATCH.
IF sy-subrc <> 0.
e_dragDropObj->abort( ).
ENDIF.
ENDMETHOD.
"tree drag
METHOD m_tree_ondrag.
DATA:lo_data TYPE REF TO c_dragdropobj.
"创建数据结构对象
CREATE OBJECT lo_data.
"设置拖动节点信息
lo_data->lv_func = node_key.
drag_drop_object->object = lo_data.
ENDMETHOD.
"tree drop
METHOD m_tree_ondrop.
"新节点
DATA:lt_new_tree TYPE TABLE OF mtreesnode.
DATA:ls_new_node TYPE mtreesnode.
DATA:lo_data TYPE REF TO c_dragdropobj.
CATCH SYSTEM-EXCEPTIONS move_cast_error = 1.
"获取传输数据
lo_data ?= drag_drop_object->object.
ls_new_node-node_key = lo_data->ls_spfli-carrid.
ls_new_node-relatkey = node_key.
ls_new_node-relatship = cl_gui_simple_tree=>relat_last_child.
ls_new_node-text = lo_data->ls_spfli-carrid.
READ TABLE lt_tree WITH KEY node_key = ls_new_node-node_key INTO ls_tree.
IF sy-subrc <> 0.
APPEND ls_new_node TO lt_tree.
APPEND ls_new_node TO lt_new_tree.
lo_tree->add_nodes(
table_structure_name = 'MTREESNODE'
node_table = lt_new_tree
).
lv_drag_flag = 0.
ELSE.
MESSAGE 'repeat id' TYPE 'I'.
lv_drag_flag = 1.
ENDIF.
ENDCATCH.
IF sy-subrc <> 0.
"some failed,abort
drag_drop_object->abort( ).
ENDIF.
ENDMETHOD.
"tree drop complete
METHOD m_tree_ondrop_comp.
DATA:ls_stable type lvc_s_stbl.
MESSAGE 'suceess' TYPE 'I'.
ls_stable-row = 'X'.
ls_stable-col = 'X'.
"刷新
lo_alv->refresh_table_display(
EXPORTING
is_stable = ls_stable
).
ENDMETHOD.
ENDCLASS.
CLASS c_main DEFINITION.
PUBLIC SECTION.
METHODS:constructor.
METHODS:m_init.
METHODS:m_free.
ENDCLASS.
CLASS c_main IMPLEMENTATION.
METHOD constructor.
CREATE OBJECT lo_container1
EXPORTING
repid = sy-repid
dynnr = '100'
extension = 200
side = cl_gui_docking_container=>dock_at_left.
CREATE OBJECT lo_container2
EXPORTING
repid = sy-repid
dynnr = '100'
extension = 1000
side = cl_gui_docking_container=>dock_at_left.
"初始化tree
CREATE OBJECT lo_tree
EXPORTING
parent = lo_container1
node_selection_mode = cl_gui_simple_tree=>node_sel_mode_single.
"初始化alv
CREATE OBJECT lo_alv
EXPORTING
i_parent = lo_container2.
ENDMETHOD.
METHOD m_init.
DATA:lv_handle_tree TYPE I.
DATA:lv_handle_alv TYPE I.
DATA:lv_set TYPE I.
DATA:lv_clear TYPE I.
DATA:lv_opt TYPE I.
"drag&drop控制字段
DATA:lt_drdr TYPE lvc_t_drdr.
DATA:ls_drdr TYPE lvc_s_drdr.
"初始化数据
SELECT * FROM spfli INTO CORRESPONDING FIELDS OF TABLE lt_out.
"设置alv的drap,drop行为,直接拖动move,按住ctrl拖动copy
CREATE OBJECT lo_drag_alv.
lv_opt = cl_dragdrop=>copy + cl_dragdrop=>move.
lo_drag_alv->add(
EXPORTING
flavor = 'Line'
dragsrc = 'X'
droptarget = 'X'
effect = lv_opt
).
lo_drag_alv->get_handle( IMPORTING handle = lv_handle_alv ).
"CNTR_DDID,指定control;
"GRID_DDID,指定grid;
"指定列,COL_DDID;
"指定行,ROW_DDID;
"指定字段,FIELDNAME;
"alv layout设置行drag
lv_layout-s_dragdrop-row_ddid = lv_handle_alv.
CREATE OBJECT lo_drag_tree.
lv_opt = cl_dragdrop=>copy + cl_dragdrop=>move.
lo_drag_tree->add(
EXPORTING
flavor = 'Line'
dragsrc = 'X'
droptarget = 'X'
effect = lv_opt
).
lo_drag_tree->get_handle( IMPORTING handle = lv_handle_tree ).
"初始node节点
CLEAR ls_tree.
ls_tree-node_key = 'TREE'.
ls_tree-isfolder = 'X'.
ls_tree-text = 'Tree Root'.
APPEND ls_tree TO lt_tree.
CLEAR ls_tree.
ls_tree-node_key = 'NODE1'.
ls_tree-isfolder = 'X'.
ls_tree-text = 'Node 1'.
ls_tree-relatkey = 'TREE'.
ls_tree-relatship = cl_gui_simple_tree=>relat_last_child.
ls_tree-dragdropid = lv_handle_tree.
APPEND ls_tree TO lt_tree.
"动作节点,不指定dragdropid,alv不能拖动到此节点
lo_drag_tree->get_handle( IMPORTING handle = lv_handle_tree ).
CLEAR ls_tree.
ls_tree-node_key = 'NODE2'.
ls_tree-isfolder = 'X'.
ls_tree-text = 'Node Action'.
ls_tree-relatkey = 'TREE'.
ls_tree-relatship = cl_gui_simple_tree=>relat_last_child.
APPEND ls_tree TO lt_tree.
"copy动作
CLEAR ls_tree.
ls_tree-node_key = 'COPY'.
ls_tree-isfolder = ''.
ls_tree-text = 'copy'.
ls_tree-relatkey = 'NODE2'.
ls_tree-relatship = cl_gui_simple_tree=>relat_last_child.
ls_tree-dragdropid = lv_handle_tree.
APPEND ls_tree TO lt_tree.
"delete动作
CLEAR ls_tree.
ls_tree-node_key = 'DEL'.
ls_tree-isfolder = ''.
ls_tree-text = 'delete'.
ls_tree-relatkey = 'NODE2'.
ls_tree-relatship = cl_gui_simple_tree=>relat_last_child.
ls_tree-dragdropid = lv_handle_tree.
APPEND ls_tree TO lt_tree.
"显示tree
lo_tree->add_nodes(
EXPORTING
table_structure_name = 'MTREESNODE'
node_table = lt_tree ).
lo_tree->expand_node( node_key = 'TREE' ).
"显示alv
lo_alv->set_table_for_first_display(
EXPORTING
i_structure_name = 'SPFLI'
is_layout = lv_layout
CHANGING
it_outtab = lt_out
).
"设置事件
SET HANDLER c_event_handler=>m_alv_ondrag FOR lo_alv.
SET HANDLER c_event_handler=>m_alv_ondrop FOR lo_alv.
SET HANDLER c_event_handler=>m_alv_ondrop_comp FOR lo_alv.
SET HANDLER c_event_handler=>m_tree_ondrag FOR lo_tree.
SET HANDLER c_event_handler=>m_tree_ondrop FOR lo_tree.
SET HANDLER c_event_handler=>m_tree_ondrop_comp FOR lo_tree.
ENDMETHOD.
METHOD m_free.
IF lo_container1 IS NOT INITIAL.
lo_container1->free( ).
ENDIF.
IF lo_container2 IS NOT INITIAL.
lo_container2->free( ).
ENDIF.
CLEAR lo_container1.
CLEAR lo_container2.
CLEAR lo_tree.
CLEAR lo_alv.
LEAVE PROGRAM.
ENDMETHOD.
ENDCLASS.
DATA:lo_main TYPE REF TO c_main.
START-OF-SELECTION.
PERFORM f_drag_drop.
FORM f_drag_drop.
CREATE OBJECT lo_main.
lo_main->m_init( ).
CALL SCREEN 100.
ENDFORM.示例2：drag tree function code to alv
"容器对象
DATA:lo_container1 TYPE REF TO cl_gui_docking_container.
DATA:lo_container2 TYPE REF TO cl_gui_docking_container.
"tree对象
DATA:lo_tree TYPE REF TO cl_gui_simple_tree.
"alv对象
DATA:lo_alv TYPE REF TO cl_gui_alv_grid.
"layout
DATA:lv_layout type lvc_s_layo.
"drag & drop操作
"设置字段，清空字段动作
DATA:lo_alv_set TYPE REF TO cl_dragdrop.
DATA:lo_alv_clear TYPE REF TO cl_dragdrop.
DATA:lo_tree_set TYPE REF TO cl_dragdrop.
DATA:lo_tree_clear TYPE REF TO cl_dragdrop.
"alv表
TYPES:BEGIN OF s_out.
INCLUDE TYPE spfli.
"控制单元格dragdrop
TYPES:t_drdr TYPE lvc_t_drdr.
TYPES:END OF s_out.
DATA:lt_out TYPE TABLE OF s_out.
DATA:ls_out LIKE LINE OF lt_out.
"tree表
DATA:lt_tree TYPE TABLE OF mtreesnode WITH DEFAULT KEY.
DATA:ls_tree LIKE LINE OF lt_tree.
"dragdrop传输数据结构
CLASS c_dragdropobj DEFINITION.
PUBLIC SECTION.
DATA:ls_spfli TYPE s_out.
DATA:index TYPE I.
DATA:lv_func TYPE C LENGTH 10.
ENDCLASS.
"dragdrop event
CLASS c_event_handler DEFINITION.
"事件触发顺序:tree drag->alv drop->tree drop complete
PUBLIC SECTION.
CLASS-METHODS:m_alv_ondrop FOR EVENT ondrop OF cl_gui_alv_grid
IMPORTING e_row e_column es_row_no e_dragdropobj.
CLASS-METHODS:m_tree_ondrag FOR EVENT on_drag OF cl_gui_simple_tree
IMPORTING node_key drag_drop_object.
CLASS-METHODS:m_tree_ondrop_comp FOR EVENT on_drop_complete OF cl_gui_simple_tree
IMPORTING node_key drag_drop_object.
ENDCLASS.
CLASS c_event_handler IMPLEMENTATION.
"alv drop
METHOD m_alv_ondrop.
DATA:lo_data TYPE REF TO c_dragdropobj.
"drag&drop控制字段
DATA:lt_drdr TYPE lvc_t_drdr.
DATA:ls_drdr TYPE lvc_s_drdr.
DATA:lv_set TYPE I.
DATA:lv_clear TYPE I.
CATCH SYSTEM-EXCEPTIONS move_cast_error = 1.
lo_data ?= e_dragdropobj->object.
IF lo_data->lv_func = 'SET'.
READ TABLE lt_out INTO ls_out INDEX e_row-index.
ls_out-fltype = 'X'.
CLEAR ls_drdr.
lo_alv_clear->get_handle( IMPORTING handle = lv_clear ).
ls_drdr-fieldname = 'FLTYPE'.
ls_drdr-dragdropid = lv_clear.
APPEND ls_drdr TO lt_drdr.
ls_out-t_drdr = lt_drdr.
MODIFY lt_out FROM ls_out INDEX e_row-index TRANSPORTING fltype t_drdr.
ELSEIF lo_data->lv_func = 'CLEAR'.
READ TABLE lt_out INTO ls_out INDEX e_row-index.
ls_out-fltype = ''.
CLEAR ls_drdr.
lo_alv_set->get_handle( IMPORTING handle = lv_set ).
ls_drdr-fieldname = 'FLTYPE'.
ls_drdr-dragdropid = lv_set.
APPEND ls_drdr TO lt_drdr.
ls_out-t_drdr = lt_drdr.
MODIFY lt_out FROM ls_out INDEX e_row-index TRANSPORTING fltype t_drdr.
ENDIF.
ENDCATCH.
IF sy-subrc <> 0.
e_dragDropObj->abort( ).
ENDIF.
ENDMETHOD.
"tree drag
METHOD m_tree_ondrag.
DATA:lo_data TYPE REF TO c_dragdropobj.
"创建数据结构对象
CREATE OBJECT lo_data.
"设置拖动节点信息
lo_data->lv_func = node_key.
drag_drop_object->object = lo_data.
ENDMETHOD.
"tree drop complete
METHOD m_tree_ondrop_comp.
DATA:ls_stable type lvc_s_stbl.
MESSAGE 'suceess' TYPE 'I'.
ls_stable-row = 'X'.
ls_stable-col = 'X'.
"刷新
lo_alv->refresh_table_display(
EXPORTING
is_stable = ls_stable
).
ENDMETHOD.
ENDCLASS.
CLASS c_main DEFINITION.
PUBLIC SECTION.
METHODS:constructor.
METHODS:m_init.
METHODS:m_free.
ENDCLASS.
CLASS c_main IMPLEMENTATION.
METHOD constructor.
CREATE OBJECT lo_container1
EXPORTING
repid = sy-repid
dynnr = '100'
extension = 200
side = cl_gui_docking_container=>dock_at_left.
CREATE OBJECT lo_container2
EXPORTING
repid = sy-repid
dynnr = '100'
extension = 1000
side = cl_gui_docking_container=>dock_at_left.
"初始化tree
CREATE OBJECT lo_tree
EXPORTING
parent = lo_container1
node_selection_mode = cl_gui_simple_tree=>node_sel_mode_single.
"初始化alv
CREATE OBJECT lo_alv
EXPORTING
i_parent = lo_container2.
ENDMETHOD.
METHOD m_init.
DATA:lv_tree_set TYPE I.
DATA:lv_tree_clear TYPE I.
DATA:lv_alv_set TYPE I.
DATA:lv_alv_clear TYPE I.
DATA:lv_opt TYPE I.
"drag&drop控制字段
DATA:lt_drdr TYPE lvc_t_drdr.
DATA:ls_drdr TYPE lvc_s_drdr.
"初始化数据
SELECT * FROM spfli INTO CORRESPONDING FIELDS OF TABLE lt_out.
"CNTR_DDID,指定control;
"GRID_DDID,指定grid;
"指定列,COL_DDID;
"指定行,ROW_DDID;
"指定字段,FIELDNAME;
"alv layout设置指定dragdrop字段
lv_layout-s_dragdrop-fieldname = 'T_DRDR'.
"初始node节点
CLEAR ls_tree.
ls_tree-node_key = 'TREE'.
ls_tree-isfolder = 'X'.
ls_tree-text = 'Tree Root'.
APPEND ls_tree TO lt_tree.
CLEAR ls_tree.
ls_tree-node_key = 'NODE1'.
ls_tree-isfolder = 'X'.
ls_tree-text = 'Node 1'.
ls_tree-relatkey = 'TREE'.
ls_tree-relatship = cl_gui_simple_tree=>relat_last_child.
APPEND ls_tree TO lt_tree.
"设置tree drag,drop动作
CREATE OBJECT lo_tree_set.
lv_opt = cl_dragdrop=>move.
lo_tree_set->add(
EXPORTING
flavor = 'Line'
dragsrc = 'X'
droptarget = ''
effect = lv_opt
).
lo_tree_set->get_handle( IMPORTING handle = lv_tree_set ).
CREATE OBJECT lo_tree_clear.
lv_opt = cl_dragdrop=>move.
lo_tree_clear->add(
EXPORTING
flavor = 'Line'
dragsrc = 'X'
droptarget = ''
effect = lv_opt
).
lo_tree_clear->get_handle( IMPORTING handle = lv_tree_clear ).
"设置tree节点for 单元格drag drop
CLEAR ls_tree.
ls_tree-node_key = 'SET'.
ls_tree-isfolder = ''.
ls_tree-text = 'set flag'.
ls_tree-relatkey = 'NODE1'.
ls_tree-relatship = cl_gui_simple_tree=>relat_last_child.
ls_tree-dragdropid = lv_tree_set.
APPEND ls_tree TO lt_tree.
CLEAR ls_tree.
ls_tree-node_key = 'CLEAR'.
ls_tree-isfolder = ''.
ls_tree-text = 'clear flag'.
ls_tree-relatkey = 'NODE1'.
ls_tree-relatship = cl_gui_simple_tree=>relat_last_child.
ls_tree-dragdropid = lv_tree_clear.
APPEND ls_tree TO lt_tree.
"设置alv drag drop动作
"设置alv单元格drag,drop
"设置单元格动作
CREATE OBJECT lo_alv_set.
lv_opt = cl_dragdrop=>move.
lo_alv_set->add(
EXPORTING
flavor = 'Line'
dragsrc = ''
droptarget = 'X'
effect = lv_opt
).
lo_alv_set->get_handle( IMPORTING handle = lv_alv_set ).
CREATE OBJECT lo_alv_clear.
lv_opt = cl_dragdrop=>move.
lo_alv_clear->add(
EXPORTING
flavor = 'Line'
dragsrc = ''
droptarget = 'X'
effect = lv_opt
).
lo_alv_clear->get_handle( IMPORTING handle = lv_alv_clear ).
LOOP AT lt_out INTO ls_out.
"标志为x,接收clear动作
IF ls_out-fltype = 'X'.
CLEAR ls_drdr.
ls_drdr-fieldname = 'FLTYPE'.
ls_drdr-dragdropid = lv_alv_clear.
APPEND ls_drdr TO lt_drdr.
ELSE.
CLEAR ls_drdr.
ls_drdr-fieldname = 'FLTYPE'.
ls_drdr-dragdropid = lv_alv_set.
APPEND ls_drdr TO lt_drdr.
ENDIF.
ls_out-t_drdr = lt_drdr.
MODIFY lt_out FROM ls_out.
ENDLOOP.
"显示tree
lo_tree->add_nodes(
EXPORTING
table_structure_name = 'MTREESNODE'
node_table = lt_tree ).
lo_tree->expand_node( node_key = 'TREE' ).
"显示alv
lo_alv->set_table_for_first_display(
EXPORTING
i_structure_name = 'SPFLI'
is_layout = lv_layout
CHANGING
it_outtab = lt_out
).
"设置事件
SET HANDLER c_event_handler=>m_alv_ondrop FOR lo_alv.
SET HANDLER c_event_handler=>m_tree_ondrag FOR lo_tree.
SET HANDLER c_event_handler=>m_tree_ondrop_comp FOR lo_tree.
ENDMETHOD.
METHOD m_free.
IF lo_container1 IS NOT INITIAL.
lo_container1->free( ).
ENDIF.
IF lo_container2 IS NOT INITIAL.
lo_container2->free( ).
ENDIF.
CLEAR lo_container1.
CLEAR lo_container2.
CLEAR lo_tree.
CLEAR lo_alv.
LEAVE PROGRAM.
ENDMETHOD.
ENDCLASS.
DATA:lo_main TYPE REF TO c_main.
START-OF-SELECTION.
PERFORM f_drag_drop.
FORM f_drag_drop.
CREATE OBJECT lo_main.
lo_main->m_init( ).
CALL SCREEN 100.
ENDFORM.