1. 要在屏幕上自定义双击事件,首先把需要回应双击的字段的属性: 响应双击/Responds to Double-Click给勾选上.
2.在状态定义上给F2的功能键分配一个功能码,如DOUB.
3.编程实现,在USER-COMMAND中编写相关的代码,如:
CASE OK_CODE.
WHEN ‘DOUB’. “定义的功能码
CLEAR OK_CODE.
PERFORM GET_FIELD.
ENDCASE.
如果有多个字段需要回应的话,可以通过GET CURSOR FIELD V_FIELD VALUE V_TABNAME ,如果是在TABLE CONTROL中可以用GET CURSOR FIELD LINE 来捕捉鼠标双击了那个字段.
FORM GET_FIELD.
DATA:FID(20).
GET CURSOR FIELD FID.
IF FID = ‘ITAB-BGRUP’.
SET PARAMETER ID ‘BUK’ FIELD P_BUKRS.
SET PARAMETER ID ‘BLN’ FIELD P_BELNR.
SET PARAMETER ID ‘GJR’ FIELD P_GJAHR.
CALL TRANSACTION ‘FB03’ AND SKIP FIRST SCREEN.
ENDIF.
ENDFORM. “GET_FIELD
原创文章,作者:ItWorker,如若转载,请注明出处:https://blog.ytso.com/18264.html