home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / sgwnd10 / defmsgra.swt < prev    next >
Encoding:
Text File  |  1998-08-10  |  776 b   |  30 lines
  1. {{Declare}}
  2. {CodeBlock}
  3.  {Name}=a   
  4.  {Location}=[CodeModule];Global;End
  5. {Code}
  6. Public WithEvents [HandlerName] As sgWindow.Window ' SGWindow Wizard generated code
  7. {EndCode}
  8.  
  9. {{Init}}
  10. {CodeBlock}
  11.  {Location}=[CodeModule];Event:Form:Load;End
  12. {Code}
  13.     ' SGWindow Wizard generated code
  14.     Set [HandlerName] = New sgWindow.Window
  15.     [HandlerName].HWND = [WindowHandle]
  16.     [HandlerName].EnableMessageRange [FirstMessage], [LastMessage], True
  17.     [HandlerName].Hooked = True
  18. {EndCode}
  19.  
  20. {{Handle}}
  21. {CodeBlock}
  22.  {Location}=[CodeModule];Event:[HandlerName]:Message;Begin
  23. {Code}
  24.     If (msg >= [FirstMessage]) And (msg <= [LastMessage]) Then
  25.         ' SGWindow: Put your message handler code here
  26.     End If
  27.     result = [HandlerName].CallWindowProc(msg, wParam, lParam)
  28. {EndCode}
  29.  
  30.