Changeset 637 for trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Form.ab

Timestamp:

Sep 29, 2008, 1:02:27 AM (16 years ago)

Author:

イグトランス (egtra)

Message:

Button.OnClickの仕組みを汎用的（WM_COMMAND全般）に。WndProcなどをProtectedへ。

File:

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

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

@@ -39 +39 @@
 
     Sub OnCommand(sender As Object, e As MessageArgs)
-        Dim id = e.WParam And &hffff 'LOWORD(e.WParam)
-        Dim cmd = (e.WParam >> 16) And &hffff 'HIWORD(e.WParam)
+'       Dim id = e.WParam And &hffff 'LOWORD(e.WParam)
+        Dim cmd = ((e.WParam >> 16) And &hffff) As Word 'HIWORD(e.WParam)
         Dim hwnd = e.LParam As HWND
-        If cmd = BN_CLICKED And hwnd <> 0 Then
-            Dim c = Control.FromHWnd(hwnd)
+        If hwnd <> 0 Then
+            Dim c = Control.FromHWnd(hwnd) As WmCommandControl
             If IsNothing(c) = False Then
-                Dim b = c As Button
-                b.RaiseClick()
+                c.RaiseCommandEvent(cmd)
             End If
         End If