事件處理器Event Handler
*----------------------------------------------------------------------*
* INTERFACE window ."窗口事件接
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
INTERFACE window."窗口事件接口
EVENTS:minimize EXPORTING value(status) TYPE i."最小化事件
ENDINTERFACE. "window ."窗口事件接
*----------------------------------------------------------------------*
* CLASS dialog_window DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS dialog_window DEFINITION."窗口事件實現
PUBLIC SECTION.
INTERFACES window.
ENDCLASS. "dialog_window DEFINITION
*----------------------------------------------------------------------*
* INTERFACE window_handler ."窗口事件處理器接
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
INTERFACE window_handler."窗口事件處理器接口
METHODS:minimize_window FOR EVENT window~minimize OF dialog_window
IMPORTING status sender."事件處理器方法參數要與事件接口定義中的一致
ENDINTERFACE. "window_handler ."窗口事件處理器接
事件處理器Event Handler