Click above to get retro games delivered to your door ever month!

DispatchMessage()
Dispatch a message to the appropriate window procedure
------------------------------------------------------------------------------

Syntax
#include "msg.ch"
DispatchMessage( <aMsg> )   -->   nResult

Arguments
<aMsg> is the array containing the message.  It must be at
least MSG_LENGTH in length, and have been filled in by a call
to GetMessage() or PeekMessage().

Returns
A numeric value is returned by the window procedure.

Description
This function allows Clip-4-Win applications to be programmed
in the "traditional" manner of Windows applications, if you wish.

Example
#include "msg.ch"

local     aMsg[MSG_LENGTH]

do while GetMessage( aMsg )
     if  !IsDialogMessage( hModelessDlg, aMsg )        ;
     .and. TranslateAccelerator( hWnd, hAccel, aMsg ) == 0
          TranslateMessage( aMsg )
          DispatchMessage( aMsg )
     endif
enddo