WD：弹出框
实现效果：
实现代码：
点击(此处)折叠或打开
- DATA: LO_CONTROLLER TYPE REF TO IF_WD_CONTROLLER,
- LO_API_NEW_VIEW TYPE REF TO IF_WD_VIEW_CONTROLLER,
- LO_COMPONENT TYPE REF TO IF_WD_COMPONENT,
- LO_WINDOW_MANAGER TYPE REF TO IF_WD_WINDOW_MANAGER,
- LO_WINDOW TYPE REF TO IF_WD_WINDOW.
- LO_CONTROLLER = WD_THIS->WD_GET_API( ).
- LO_API_NEW_VIEW = WD_THIS->WD_GET_API( ).
- LO_COMPONENT = LO_API_NEW_VIEW->IF_WD_CONTROLLER~GET_COMPONENT( ).
- LO_WINDOW_MANAGER = LO_COMPONENT->GET_WINDOW_MANAGER( ).
- CALL METHOD LO_WINDOW_MANAGER->CREATE_POPUP_TO_CONFIRM
- EXPORTING
- TEXT = IT_TEXT
- BUTTON_KIND = IF_WD_WINDOW=>CO_BUTTONS_YESNO
- * MESSAGE_TYPE =
- CLOSE_BUTTON = ABAP_FALSE
- WINDOW_TITLE = I_TITLE
- * WINDOW_LEFT_POSITION =
- * WINDOW_TOP_POSITION =
- * WINDOW_POSITION =
- WINDOW_WIDTH = IV_WIDTH
- * WINDOW_HEIGHT =
- * DEFAULT_BUTTON =
- RECEIVING
- RESULT = LO_WINDOW.
- LO_WINDOW->POPUP_TO_CONFIRM->SUBSCRIBE_TO_BUTTON_EVENT(
- CONTROLLER = LO_CONTROLLER
- HANDLER_NAME = I_BTN1
- BUTTON = IF_WD_WINDOW=>CO_BUTTON_YES
- BUTTON_TEXT = '确定'
- TOOLTIP = 'YES'
- * IS_DEFAULT_BUTTON =
- ).
- LO_WINDOW->POPUP_TO_CONFIRM->SUBSCRIBE_TO_BUTTON_EVENT(
- CONTROLLER = LO_CONTROLLER
- HANDLER_NAME = I_BTN2
- BUTTON = IF_WD_WINDOW=>CO_BUTTON_NO
- BUTTON_TEXT = '关闭'
- TOOLTIP = 'NO'
- * IS_DEFAULT_BUTTON =
- ).
- LO_WINDOW->SET_CLOSE_IN_ANY_CASE( 'X' ).
- LO_WINDOW->SET_IS_RESIZABLE( 'X' ).
- LO_WINDOW->OPEN( ).
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/29203849/viewspace-1980842/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
WD：消息类
请登录后发表评论
登录
全部评论
