用于 OpenEdge 11.6 的 Developer Studio 正在进行鼠标延长点击事件

Question

我目前正在处理 DataGridView 事件并将 Progress 4GL 代码转换为 .NET 类。如何在 Progress Developer Studio 中编写 'ON MOUSE-EXTEND-CLICK OF b1(browse)'？

Answer 1

经过多次测试我找到了答案

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.