Open Popup

来源:互联网 发布:超声波电子捕鱼器淘宝 编辑:程序博客网 时间:2024/04/28 04:14

METHOD open_popup .

  DATA:

    lo_window_manager TYPE REF TO if_wd_window_manager,

    lo_api_component  TYPE REF TO if_wd_component,

    lo_window         TYPE REF TO if_wd_window,

    lo_view_crl       TYPE REF TO if_wd_view_controller,

    lt_text           TYPE string_table.

 

  lo_api_component  = wd_comp_controller->wd_get_api( ).

  lo_window_manager = lo_api_component->get_window_manager( ).

 

  APPEND (&message&) TO lt_text.

  lo_window  = lo_window_manager->create_popup_to_confirm(

               text            = lt_text

               button_kind     = if_wd_window=>co_buttons_okcancel

               message_type    = if_wd_window=>co_msg_type_question

               window_title    = 'Warning'

               window_position = if_wd_window=>co_center ).

 

  lo_view_crl  = wd_this->wd_get_api( ).

 

  lo_window->subscribe_to_button_event(

              button            = if_wd_window=>co_button_ok

              button_text       = 'OK'

              action_name       = action_name

              action_view       = lo_view_crl ).

 

  lo_window->open( ).

 

ENDMETHOD.

原创粉丝点击