WD：弹出框

实现效果：

实现代码：

点击(此处)折叠或打开

1. DATA: LO_CONTROLLER TYPE REF TO IF_WD_CONTROLLER,
2. LO_API_NEW_VIEW TYPE REF TO IF_WD_VIEW_CONTROLLER,
3. LO_COMPONENT TYPE REF TO IF_WD_COMPONENT,
4. LO_WINDOW_MANAGER TYPE REF TO IF_WD_WINDOW_MANAGER,
5. LO_WINDOW TYPE REF TO IF_WD_WINDOW.
7. LO_CONTROLLER = WD_THIS->WD_GET_API( ).
8. LO_API_NEW_VIEW = WD_THIS->WD_GET_API( ).
9. LO_COMPONENT = LO_API_NEW_VIEW->IF_WD_CONTROLLER~GET_COMPONENT( ).
10. LO_WINDOW_MANAGER = LO_COMPONENT->GET_WINDOW_MANAGER( ).
12. CALL METHOD LO_WINDOW_MANAGER->CREATE_POPUP_TO_CONFIRM
13. EXPORTING
14. TEXT = IT_TEXT
15. BUTTON_KIND = IF_WD_WINDOW=>CO_BUTTONS_YESNO
16. * MESSAGE_TYPE =
17. CLOSE_BUTTON = ABAP_FALSE
18. WINDOW_TITLE = I_TITLE
19. * WINDOW_LEFT_POSITION =
20. * WINDOW_TOP_POSITION =
21. * WINDOW_POSITION =
22. WINDOW_WIDTH = IV_WIDTH
23. * WINDOW_HEIGHT =
24. * DEFAULT_BUTTON =
25. RECEIVING
26. RESULT = LO_WINDOW.
28. LO_WINDOW->POPUP_TO_CONFIRM->SUBSCRIBE_TO_BUTTON_EVENT(
29. CONTROLLER = LO_CONTROLLER
30. HANDLER_NAME = I_BTN1
31. BUTTON = IF_WD_WINDOW=>CO_BUTTON_YES
32. BUTTON_TEXT = '确定'
33. TOOLTIP = 'YES'
34. * IS_DEFAULT_BUTTON =
35. ).
37. LO_WINDOW->POPUP_TO_CONFIRM->SUBSCRIBE_TO_BUTTON_EVENT(
38. CONTROLLER = LO_CONTROLLER
39. HANDLER_NAME = I_BTN2
40. BUTTON = IF_WD_WINDOW=>CO_BUTTON_NO
41. BUTTON_TEXT = '关闭'
42. TOOLTIP = 'NO'
43. * IS_DEFAULT_BUTTON =
44. ).
46. LO_WINDOW->SET_CLOSE_IN_ANY_CASE( 'X' ).
47. LO_WINDOW->SET_IS_RESIZABLE( 'X' ).
48. LO_WINDOW->OPEN( ).

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/29203849/viewspace-1980842/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/29203849/viewspace-1980842/