创建文本输入框（dialog）

DATA:editor_container TYPE REF TO cl_gui_custom_container,
      editor type REF TO cl_gui_textedit.

call  SCREEN 1001.
*&---------------------------------------------------------------------*
*&      Module  STATUS_1001  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_1001 OUTPUT.
  SET PF-STATUS 'T001'.
  PERFORM create_container_object USING editor_container 'EDITOR'.
  PERFORM create_editor_object USING editor editor_container.

ENDMODULE.                 " STATUS_1001  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_1001  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_1001 INPUT.
  CASE sy-ucomm.
    WHEN 'EXIT'.
      LEAVE TO SCREEN 0.

    WHEN OTHERS.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_1001  INPUT
*&---------------------------------------------------------------------*
*&      Form  CREATE_CONTAINER_OBJECT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_EDITOR_CONTAINER  text
*      -->P_0028   text
*----------------------------------------------------------------------*
FORM CREATE_CONTAINER_OBJECT  USING    P_CONTAINER TYPE REF TO cl_gui_custom_container
                                     p_container_name .
  CHECK p_container IS INITIAL.
  CREATE OBJECT p_container
    EXPORTING
      container_name              = p_container_name
    EXCEPTIONS
      cntl_error                  = 1
      cntl_system_error           = 2
      create_error                = 3
      lifetime_error              = 4
      lifetime_dynpro_dynpro_link = 5.
ENDFORM.                    " CREATE_CONTAINER_OBJECT
*&---------------------------------------------------------------------*
*&      Form  CREATE_EDITOR_OBJECT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_EDITOR  text
*      -->P_EDITOR_CONTAINER  text
*----------------------------------------------------------------------*
FORM CREATE_EDITOR_OBJECT  USING    P_EDITOR TYPE REF TO cl_gui_textedit
                                    P_CONTAINER TYPE REF TO cl_gui_custom_container.
  CHECK p_editor IS INITIAL.
  CREATE OBJECT p_editor
    EXPORTING
      parent                     = p_container
*      wordwrap_mode              = cl_gui_textedit=>wordwrap_at_fixed_position
*      wordwrap_position          = c_line_length
*      wordwrap_to_linebreak_mode = cl_gui_textedit=>false
      max_number_chars           = 100000
    EXCEPTIONS
      others                     = 1.

  CALL METHOD P_EDITOR->SET_TOOLBAR_MODE." 添加为了不显示状态栏.

ENDFORM.                    " CREATE_EDITOR_OBJECT