OO ALV中經常會用的行單擊，行雙擊，application tool bar上添加按鈕以及按鈕的相應事件，如下：
1，單擊：handle_hotspot_click 事件
2，雙擊：handle_double_click
3，工具欄上添加自定按鈕: handle_toolbar，其中，butn_type = 3. 是分隔符詳細參照下面代碼
4， 自定義按鈕相應事件：handle_command
這些事件需要用SET HANDLER先注冊，然后再在類中實現，添加自己的邏輯。
下面是個完整代碼以及相關屏幕的創建過程：
1） 創建0100屏幕
屏幕PAI，PBO中流邏輯代碼
PROCESS BEFORE OUTPUT. MODULE STATUS_0100. MODULE INIT_CON. PROCESS AFTER INPUT. MODULE USER_EXIT_0100 AT EXIT-COMMAND.
2) 在0100屏幕上畫自定義控件，命名為CUS01
在屏幕點擊下面紅框內的按鈕創建控件CUS01.
3，程序中的Status
4，程序代碼
REPORT ZTEST_OO_ALV_EVENT. DATA: gs_data TYPE spfli. DATA: gt_data LIKE TABLE OF gs_data. DATA: g_con01 TYPE REF TO cl_gui_custom_container. DATA: g_grid01 TYPE REF TO cl_gui_alv_grid. DATA: gs_fieldcat TYPE lvc_s_fcat. DATA: gt_fieldcat TYPE lvc_t_fcat. CONSTANTS: g_cus01 TYPE scrfname VALUE 'CUS01'. *----------------------------------------------------------------------* * CLASS cl_event_receiver DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS cl_event_receiver DEFINITION. PUBLIC SECTION. " 聲明單擊事件的方法 METHODS handle_hotspot_click FOR EVENT hotspot_click OF cl_gui_alv_grid IMPORTING e_row_id e_column_id. " 聲明雙擊事件方法 METHODS handle_double_click FOR EVENT double_click OF cl_gui_alv_grid IMPORTING e_row e_column. " 聲明Toolbar事件方法 METHODS handle_toolbar FOR EVENT toolbar OF cl_gui_alv_grid IMPORTING e_object e_interactive. " 聲明USER-COMMAND 事件方法 METHODS handle_command FOR EVENT user_command OF cl_gui_alv_grid IMPORTING e_ucomm. ENDCLASS. "cl_event_receiver DEFINITION *----------------------------------------------------------------------* * CLASS cl_event_receiver IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS cl_event_receiver IMPLEMENTATION. " 單擊事件方法的實現 METHOD handle_hotspot_click. CONDENSE e_row_id NO-GAPS. CONDENSE e_column_id NO-GAPS. MESSAGE i001(00) WITH '單擊事件->行號:' e_row_id '、列名：' e_column_id. ENDMETHOD. "handle_HOTSPOT_CLICK " 雙擊事件方法的實現 METHOD handle_double_click. CONDENSE e_row NO-GAPS. CONDENSE e_column NO-GAPS. MESSAGE i001(00) WITH '雙擊事件->行號:' e_row '、列名：' e_column. ENDMETHOD. "handle_double_click " 實現Toolbar事件方法 METHOD handle_toolbar. DATA: ls_toolbar TYPE stb_button. CLEAR: ls_toolbar. ls_toolbar-butn_type = 3. " 分隔符 APPEND ls_toolbar TO e_object->mt_toolbar. CLEAR: ls_toolbar. ls_toolbar-function = 'DISP'. " 功能碼 ls_toolbar-icon = icon_display. " 圖標名稱 ls_toolbar-quickinfo = '顯示'. " 圖標的提示信息 ls_toolbar-butn_type = 0. " 0表示正常按鈕 ls_toolbar-disabled = ''. " X表示灰色，不可用 ls_toolbar-text = '按鈕1'. " 按鈕上顯示的文本 APPEND ls_toolbar TO e_object->mt_toolbar. ENDMETHOD. "handle_toolbar " 實現USER-COMMAND 事件方法 METHOD handle_command. CASE e_ucomm. WHEN 'DISP'. MESSAGE i001(00) WITH 'Toolbar事件 + USER-COMMAND事件 '. ENDCASE. ENDMETHOD. "HANDLE_COMMAND ENDCLASS. "cl_event_receiver IMPLEMENTATION DATA: event_receiver TYPE REF TO cl_event_receiver. START-OF-SELECTION. PERFORM get_data. CALL SCREEN 100. *&---------------------------------------------------------------------* *& Form GET_DATA *&---------------------------------------------------------------------* * text 獲取數據 *----------------------------------------------------------------------* FORM get_data. SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_data UP TO 30 ROWS FROM spfli. ENDFORM. "GET_DATA *&---------------------------------------------------------------------* *& Form SET_FIELDCAT *&---------------------------------------------------------------------* * text ALV顯示字段文本 *----------------------------------------------------------------------* FORM set_fieldcat. CLEAR: gt_fieldcat[]. DEFINE macro_fieldcat. clear gs_fieldcat. gs_fieldcat-fieldname = &1. gs_fieldcat-coltext = &2. gs_fieldcat-hotspot = &3. append gs_fieldcat to gt_fieldcat. END-OF-DEFINITION. macro_fieldcat 'CARRID' '航線代碼' 'X'. macro_fieldcat 'CONNID' '航班連接Id' ''. macro_fieldcat 'COUNTRYFR' '起飛國家' ''. macro_fieldcat 'CITYFROM' '起飛城市' ''. macro_fieldcat 'AIRPFROM' '起飛機場' ''. macro_fieldcat 'COUNTRYTO' '目標國家' ''. macro_fieldcat 'CITYTO' '目標城市' ''. macro_fieldcat 'AIRPTO' '目標機場' ''. macro_fieldcat 'FLTIME' '航班時間' ''. macro_fieldcat 'DEPTIME' '啟程時間' ''. macro_fieldcat 'ARRTIME' '到達時間' ''. macro_fieldcat 'DISTANCE' '距離' ''. ENDFORM. "SET_FIELDCAT *&---------------------------------------------------------------------* *& Form SET_LAYOUT *&---------------------------------------------------------------------* * text 布局 *----------------------------------------------------------------------* * -->P_LAYOUT text *----------------------------------------------------------------------* FORM set_layout CHANGING p_layout TYPE lvc_s_layo. p_layout-cwidth_opt = 'X'. " 自動調節字段長度 p_layout-sel_mode = 'D'. " 選擇模式，可選擇多行 p_layout-zebra = 'X'. " 顏色交替顯示 ENDFORM. "SET_LAYOUT *&---------------------------------------------------------------------* *& Module INIT_CON OUTPUT *&---------------------------------------------------------------------* * text 創建ALV *----------------------------------------------------------------------* MODULE init_con OUTPUT. DATA: ls_layout TYPE lvc_s_layo. IF g_con01 IS INITIAL. PERFORM set_fieldcat. PERFORM set_layout CHANGING ls_layout. " 創建SAP容器實例 CREATE OBJECT g_con01 EXPORTING container_name = g_cus01 " 自定義控件名稱 EXCEPTIONS cntl_error = 1 cntl_system_error = 2 create_error = 3 lifetime_error = 4 lifetime_dynpro_dynpro_link = 5 OTHERS = 6. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. " 創建GRID實例 CREATE OBJECT g_grid01 EXPORTING i_parent = g_con01 EXCEPTIONS error_cntl_create = 1 error_cntl_init = 2 error_cntl_link = 3 error_dp_create = 4 OTHERS = 5. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. CREATE OBJECT event_receiver. " 注冊事件handler方法 SET HANDLER event_receiver->handle_hotspot_click FOR g_grid01. SET HANDLER event_receiver->handle_double_click FOR g_grid01. SET HANDLER event_receiver->handle_toolbar FOR g_grid01. SET HANDLER event_receiver->handle_command FOR g_grid01. " 調用ALV 顯示方法 CALL METHOD g_grid01->set_table_for_first_display EXPORTING * i_structure_name = 'SPFLI' " 參照表結構字段顯示 is_layout = ls_layout " 布局 CHANGING it_fieldcatalog = gt_fieldcat " 顯示字段 it_outtab = gt_data[] EXCEPTIONS invalid_parameter_combination = 1 program_error = 2 too_many_lines = 3 OTHERS = 4. IF sy-subrc <> 0. * Implement suitable error handling here ENDIF. ENDIF. ENDMODULE. " INIT_CON OUTPUT *&---------------------------------------------------------------------* *& Module STATUS_0100 OUTPUT *&---------------------------------------------------------------------* * text 工具條 *----------------------------------------------------------------------* MODULE status_0100 OUTPUT. SET PF-STATUS 'S0001'. ENDMODULE. " STATUS_0100 OUTPUT *&---------------------------------------------------------------------* *& Module USER_EXIT_0100 INPUT *&---------------------------------------------------------------------* * text 取消事件 *----------------------------------------------------------------------* MODULE user_exit_0100 INPUT. LEAVE TO SCREEN 0. ENDMODULE. " USER_EXIT_0100 INPUT
5，運行效果
以上