source: trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/FormEvent.sbp@ 545

Public
    Sub AddQueryClose(h As FormClosingEventHandler)
        If IsNothing(queryClose) Then
            queryClose = h
        Else
            queryClose += h
        End If
    End Sub
    Sub RemoveQueryClose(h As FormClosingEventHandler)
        If Not IsNothing(queryClose) Then
            queryClose -= h
        End If
    End Sub
Private
    Sub OnQueryClose(e As FormClosingEventArgs)
        If Not IsNothing(queryClose) Then
            queryClose(This, e)
        End If
    End Sub
Private
    queryClose As FormClosingEventHandler