Ignore:
Timestamp:
Sep 29, 2008, 1:02:27 AM (16 years ago)
Author:
イグトランス (egtra)
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r576 r637  
    88    Inherits Form
    99Public
    10 
    11     Override Function DefWndProc(m As DWord, w As WPARAM, l As LPARAM) As LRESULT
    12         DefWndProc = FALSE
    13     End Function
    14 
    1510    Function DoModal(hwndParent As HWND) As Long
    1611        Dim temp[31] As Byte
    … …  
    2015        StartWndProc()
    2116        DoModal = DialogBoxIndirectParam(Control.hInstance, temp As *DLGTEMPLATE, hwndParent, AddressOf(DefDlgProc), 0)
     17    End Function
     18Protected
     19    Override Function DefWndProc(m As DWord, w As WPARAM, l As LPARAM) As LRESULT
     20        DefWndProc = FALSE
    2221    End Function
    2322
Note: See TracChangeset for help on using the changeset viewer.