MOUSE-EXTEND-CLICK EVENT正在进行开发人员Studio for OpenEdge 11.6

问题描述:

我目前正在研究DataGridView Events并将进度4GL代码转换为.NET类。如何在Progress Developer Studio中编写'在ON MOUSE-EXTEND-CLICK OF b1(浏览)“?MOUSE-EXTEND-CLICK EVENT正在进行开发人员Studio for OpenEdge 11.6

经过多次试验,我发现了答案

METHOD PRIVATE VOID dgvB1_CellClick(INPUT sender AS System.Object, INPUT e 
    AS System.Windows.Forms.DataGridViewCellEventArgs): 

    IF AVAILABLE tt AND e:RowIndex GT -1 THEN 
    DO: 
     IF System.Windows.Forms.Control:ModifierKeys = System.Windows.Forms.Keys:CONTROL THEN 
     DO: 
      MESSAGE tt.field VIEW-AS ALERT-BOX. 
     END. 
     RETURN. 
    END. 
END METHOD.