Changeset 544 for trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Forms/EventArgs.ab

Timestamp:

Jul 13, 2008, 1:47:20 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

キー関連とCreateイベントの追加

File:

• trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Forms/EventArgs.ab (modified) (1 diff)

trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Forms/EventArgs.ab

@@ -491 +491 @@
 Delegate Sub CreateEventHandler(sender As Object, e As CreateEventArgs)
 
+Class FormClosingEventArgs
+    Inherits EventArgs
+Public
+    Sub FormClosingEventArgs()
+        c = False
+    End Sub
+
+    Function Cancel() As Boolean
+        Cancel = c
+    End Function
+
+    Sub Cancel(cancel As Boolean)
+        c = cancel
+    End Sub
+Private
+    c As Boolean
+End Class
+
+Delegate Sub FormClosingEventHandler(sender As Object, e As FormClosingEventArgs)
+
 End Namespace 'Forms
 End Namespace 'UI