Dialog中创建Context Menu上下文菜单

在Dialog屏幕中，增加鼠标右击弹出的上下文菜单

1、se38 创建一个可执行程序

1. DATA text1(10) TYPE c.
   
2. DATA text2(10) TYPE c.
   
3. DATA text_cut(10) TYPE c.
   
4. DATA right_clk TYPE REF TO cl_ctmenu.
   
5. DATA ok_code TYPE sy-ucomm.
   
6. DATA:prog TYPE sy-repid,
   
7.      flag(1) TYPE c VALUE 'X',
   
8.      fld(20) TYPE c,
   
9.      off     TYPE i,
   
10.      val(20) TYPE c.
    
11. 
    
12. START-OF-SELECTION.
    
13.   CALL SCREEN 9000.
    
14. *&---------------------------------------------------------------------*
    
15. *&      Module  STATUS_9000  OUTPUT
    
16. *&---------------------------------------------------------------------*
    
17. *       text
    
18. *----------------------------------------------------------------------*
    
19. MODULE status_9000 OUTPUT.
    
20.   prog = sy-repid.
    
21. * SET PF-STATUS 'ZGUI_9000'.
    
22.   SET TITLEBAR 'TITLE'.
    
23. ENDMODULE.                 " STATUS_9000  OUTPUT
    
24. *&---------------------------------------------------------------------*
    
25. *&      Module  USER_COMMAND_9000  INPUT
    
26. *&---------------------------------------------------------------------*
    
27. *       text
    
28. *----------------------------------------------------------------------*
    
29. MODULE user_command_9000 INPUT.
    
30.   CLEAR ok_code.
    
31.   ok_code = sy-ucomm.
    
32.   CASE ok_code.
    
33.     WHEN 'OPEN'.
    
34.       MESSAGE 'OPEN IS CLICKED' TYPE 'I'.
    
35.     WHEN 'CUT'.
    
36.       text_cut = text1. "storing in some temp variable
    
37.       CLEAR text1.
    
38.     WHEN 'PASTE'.
    
39.       GET CURSOR FIELD fld VALUE val."to find out in which i/o field the cursor is in
    
40.       IF fld = 'TEXT2'.
    
41.         text2 = text_cut.
    
42.       ELSEIF fld = 'TEXT1'.
    
43.         text1 = text_cut.
    
44.       ENDIF.
    
45.     WHEN 'CLEAR'.
    
46.       CLEAR : text1 ,text2,text_cut.
    
47.   ENDCASE.
    
48. ENDMODULE.                 " USER_COMMAND_9000  INPUT
    
49. "RIGHT CLICK on text 1 input/ouput field
    
50. *&---------------------------------------------------------------------*
    
51. *&      Form  on_ctmenu_text1
    
52. *&---------------------------------------------------------------------*
    
53. *       text
    
54. *----------------------------------------------------------------------*
    
55. *      -->L_MENU     text
    
56. *----------------------------------------------------------------------*
    
57. FORM on_ctmenu_text1 USING l_menu TYPE REF TO cl_ctmenu.
    
58.   CREATE OBJECT right_clk.
    
59.   CALL METHOD: right_clk->add_function
    
60.                       EXPORTING fcode = 'OPEN'
    
61.                                 text  = 'Open',
    
62.                right_clk->add_function
    
63.                        EXPORTING fcode = 'CUT'
    
64.                                  text  = 'Cut',
    
65.                right_clk->add_function
    
66.                        EXPORTING fcode = 'PASTE'
    
67.                                  text  = 'Paste',
    
68.               right_clk->add_function
    
69.                        EXPORTING fcode = 'MOVE'
    
70.                                  text  = 'Move',
    
71.                l_menu->add_submenu
    
72.                        EXPORTING menu = right_clk
    
73.                                  text = 'OPTIONS'.
    
74. ENDFORM.                    "on_ctmenu_text1
    
75. "RIGHT CLICK on text 2 input/ouput field
    
76. *&---------------------------------------------------------------------*
    
77. *&      Form  on_ctmenu_text2
    
78. *&---------------------------------------------------------------------*
    
79. *       text
    
80. *----------------------------------------------------------------------*
    
81. *      -->L_MENU     text
    
82. *----------------------------------------------------------------------*
    
83. FORM on_ctmenu_text2 USING l_menu TYPE REF TO cl_ctmenu.
    
84.   CREATE OBJECT right_clk.
    
85.   CALL METHOD: right_clk->add_function
    
86.                       EXPORTING fcode = 'OPEN'
    
87.                                 text  = 'Open',
    
88.                right_clk->add_function
    
89.                        EXPORTING fcode = 'CUT'
    
90.                                  text  = 'Cut',
    
91.                right_clk->add_function
    
92.                        EXPORTING fcode = 'PASTE'
    
93.                                  text  = 'Paste',
    
94.               right_clk->add_function
    
95.                        EXPORTING fcode = 'MOVE'
    
96.                                  text  = 'Move',
    
97.                l_menu->add_submenu
    
98.                        EXPORTING menu = right_clk
    
99.                                  text = 'OPTIONS'.
    
100. ENDFORM.                    "on_ctmenu_text2

复制代码

PS:这里的FORM on_ctmenu_text1、FORM on_ctmenu_text2回调到Screen painter的屏幕中，其中form的“on_ctmenu_”是固定的，text1/text2在屏幕中自己定义

2、创建9000 标准屏幕

点击“格式”按钮，绘制如下屏幕元素


这里的context menu form 就是回调程序中的form代码的
定义ok_code、逻辑流

1. PROCESS BEFORE OUTPUT.
   
2. MODULE STATUS_9000.
   
3. *
   
4. PROCESS AFTER INPUT.
   
5. MODULE USER_COMMAND_9000.

复制代码

3、测试程序，效果如下