Dialog程序中创建动态按钮图标和文本

我们经常会看到系统标准的'显示'和'更改'按钮，点击时能相互切换，只在一个button内完成，这就是动态按钮的应用。

1、se38创建可执行程序

1. REPORT yleon_005.
   
2. TYPE-POOLS:icon.
   
3. DATA:i_function_key_line TYPE smp_dyntxt,
   
4.      g_count             TYPE c,
   
5.      ok_code_100         TYPE sy-ucomm.
   
6. 
   
7. START-OF-SELECTION .
   
8.   CALL SCREEN 100.
   
9. *&---------------------------------------------------------------------*
   
10. *&      Module  STATUS_0100  OUTPUT
    
11. *&---------------------------------------------------------------------*
    
12. *       text
    
13. *----------------------------------------------------------------------*
    
14. MODULE status_0100 OUTPUT.
    
15.   IF g_count IS INITIAL.
    
16.     CLEAR:i_function_key_line.
    
17.     i_function_key_line-icon_id = icon_display.
    
18.     i_function_key_line-icon_text = 'TEXT1'.
    
19.     i_function_key_line-quickinfo = 'THIS IS FRIST NAME'.
    
20.     SET PF-STATUS '0100'.
    
21.     g_count = 1.
    
22.   ELSEIF g_count = 1.
    
23.     CLEAR:i_function_key_line.
    
24.     i_function_key_line-icon_id = icon_change.
    
25.     i_function_key_line-icon_text = 'TEXT2'.
    
26.     i_function_key_line-quickinfo = 'THIS IS SECOND NAME'.
    
27.     SET PF-STATUS '0100'.
    
28.     CLEAR g_count.
    
29.   ENDIF.
    
30. 
    
31. ENDMODULE.                 " STATUS_0100  OUTPUT

复制代码

2、创建 normal screen 100，程序流

1. PROCESS BEFORE OUTPUT.
   
2. MODULE STATUS_0100.
   
3. *
   
4. PROCESS AFTER INPUT.
   
5. * MODULE USER_COMMAND_0100.

复制代码

3、创建工具栏
双击代码SET PF-STATUS '0100'.中的100.

Application toolbar 中定义按钮function code，然后双击选择“Dynamic Text”

输入field name，也可以F4选择
4、程序执行效果

单击按钮