變量定義

CONSTANTS: GC_TEXT_LINE_LENGTH TYPE I VALUE 72.
TYPES: TEXT_TABLE_TYPE(GC_TEXT_LINE_LENGTH) TYPE C OCCURS 0.
DATA: GV_SPLITTER TYPE REF TO CL_GUI_EASY_SPLITTER_CONTAINER.
DATA: GV_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER.
DATA: GV_TEXT_EDITOR TYPE REF TO CL_GUI_TEXTEDIT.

容器等邏輯

IF GV_SPLITTER IS INITIAL.CREATE OBJECT GV_CUSTOM_CONTAINEREXPORTINGCONTAINER_NAME = 'CUSTOM_CONTAINER'.CREATE OBJECT GV_SPLITTEREXPORTINGPARENT        = GV_CUSTOM_CONTAINERORIENTATION   = 1    "方向: 0 = 垂直 ， 1 = 水平SASH_POSITION = 0. "文檔框靠左邊的位置ENDIF.IF GV_TEXT_EDITOR IS INITIAL.CREATE OBJECT GV_TEXT_EDITOREXPORTINGPARENT                     = GV_SPLITTER->BOTTOM_RIGHT_CONTAINER
*       wordwrap_mode              = cl_gui_textedit=>wordwrap_at_windowborderWORDWRAP_TO_LINEBREAK_MODE = CL_GUI_TEXTEDIT=>FALSE  "自動換行模式關閉"wordwrap_to_linebreak_mode = cl_gui_textedit=>trueEXCEPTIONSERROR_CNTL_CREATE          = 1ERROR_CNTL_INIT            = 2ERROR_CNTL_LINK            = 3ERROR_DP_CREATE            = 4GUI_TYPE_NOT_SUPPORTED     = 5.CALL METHOD GV_TEXT_EDITOR->SET_READONLY_MODE EXPORTING READONLY_MODE = CL_GUI_TEXTEDIT=>TRUE. "輸入框只讀模式開啟"CALL METHOD GV_TEXT_EDITOR->SET_READONLY_MODE EXPORTING READONLY_MODE = CL_GUI_TEXTEDIT=>FALSE. "輸入框只讀模式關閉ENDIF.CALL METHOD GV_TEXT_EDITOR->SET_TEXT_AS_R3TABLEEXPORTINGTABLE           = IT_LINE[]EXCEPTIONSERROR_DP        = 1ERROR_DP_CREATE = 2OTHERS          = 3.IF SY-SUBRC <> 0.MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNOWITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.ENDIF.

屏幕

效果