				COM-object FoxSubclass.

 ,         . ,      subclassing ().      .
        regsvr32 c:\path\FoxSubclass.dll.
ProgID : FoxSubclass.WndSubclass

  :
1. SubclassWindow(hWnd, szHandler, bReceiveAll) - "" ,   subclassing.
hWnd - ,    
szHandler - -  ,       ( )
bReceiveAll -  TRUE,    , ,   ,      AddMessage()
2. AddMessage(hWnd, uMsg, uPlace) -             (szHandler).
hWnd - ,      SubclassWindow
uMsg -  
uPlace -       (0 -      , 1-  , 2 -    ).
3. ChangeMessageParam -       WPARAM  LPARAM ( ,     ).        .
4. UnSubclassWindow, RemoveMessage, RemoveMessageAll -   ,    .

 :
1. pFoxDispatch -    Dispatch .      ,        .  pFoxDispatch = _vfp.
2. IsHandled -  ,        .     TRUE         .             .      ,        .          .F.,             .  .. -            (    ).

          : _(hWnd, uMsg, wParam, lParam),  hWnd -  ,  ; uMsg -  ; wParam -  WPARAM ; lParam -  LPARAM .     ,           (. MSDN).

  :

SET procedure to wndproc.prg  &&     WndProc(hWnd, uMsg, wParam, lParam)
o = CreateObject("FoxSubclass.WndSubclass")
if vartype(o)<>"O"
  return
endif

o.pFoxDispatch = _vfp  &&     
o.SubclassWindow(_vfp.hWnd, "WndProc", .F.)  && subclassing   
o.AddMessage(_vfp.hWnd, 6, 0)  &&   WM_ACTIVATE    
o.UnSubclassWindow(_vfp.hWnd)

  WM_ACTIVATE        ,        IsHandled  TRUE (o.IsHandled = .T.).

       (   SubclassWindow  .T.), ..        .    ,   .
  -      : wiruc@mail.ru

    Visual Studio.NET  ATL.
:   aKa WiRuc