Hi Tom!
Das schaut gut aus. Danke!
Grüße
Jörg Schneider
Am 27.10.2011 14:01, schrieb Tom Borgmann:
> Hi Jörg,
>
> im u.a. Code wird mit den WM Events gearbeitet. Wenn Du im Statushandler anstatt den Status in der VFP Statusleiste über eine Messagebox abfangen möchtest, dann steht dem nichts im Wege...
>
> * // Wenn derEVENT-Handler bereits erzeugt wurde,
> * // dann nichts wie raus hier!
> IF VARTYPE( [oEventHandler] ) = [O]
> RETURN .T.
> ENDIF
>
> * // Deklarationen aus WINEVENTS.H inkludieren
> #INCLUDE WinEvents.H
>
> * // Eventhandler erzeugen
> PUBLIC oEventHandler
> oEventHandler = CREATEOBJECT( [EventHandler] )
>
> * // Benötigte Events an Handler-Funktion binden
> BINDEVENT( _VFP.hWnd , WM_KEYUP , oEventHandler , [Statushandler] )
> BINDEVENT( _VFP.hWnd , WM_ACTIVATE , oEventHandler , [Statushandler] )
>
>
> DEFINECLASS EventHandlerAS Custom
>
> nOldProc = 0
>
> FUNCTION Init
> DECLARE INTEGER GetWindowLongIN Win32API ;
> INTEGER HWND, ;
> INTEGER nIndex
>
> DECLARE INTEGER CallWindowProcIN Win32API ;
> INTEGER lpPrevWndFunc, ;
> INTEGER HWND, ;
> INTEGER Msg, ;
> INTEGER wParam, ;
> INTEGER LPARAM
>
> DECLARE INTEGER FindWindowExIN WIN32API ;
> INTEGER, ;
> INTEGER, ;
> STRING, ;
> STRING
>
> DECLARE INTEGER GetWindowTextIN Win32API ;
> INTEGER, ;
> STRING @, ;
> INTEGER
>
> THIS.nOldProc = GetWindowLong( _SCREEN.HWND , GWL_WNDPROC )
>
> ENDFUNC
>
> FUNCTION StatusHandler( hWnd , Msg , wParam , lParam )
>
> DO CASE
>
> * // VFP Fenster wurde aktiviert
> CASE Msg = WM_ACTIVATE
>
> * // Sicherstellen, das die Statusleiste
> * // aktualisiert wird
> IF VARTYPE( [_Screen.Status_Bar] ) = [O]
> _Screen.Status_Bar.Refresh_Data
> ENDIF
>
> * // Loslassen von Tasten abfangen
> CASE Msg = WM_KEYUP
> * // Wenn CAPSLOCK& NUMLOCK losgelassen
> IF ( wParam = 20OR wParam = 144 ) ;
> AND VARTYPE( [_Screen.Status_Bar] ) = [O]
> _Screen.Status_Bar.Refresh_Data
> ENDIF
> ENDCASE
>
> * // Primäre Rückgabe.
> * //Äquivalent zu VFPs DODEFAULT()
> RETURN CallWindowProc( This.nOldProc , hWnd , Msg , wParam , lParam )
>
> ENDFUNC
>
> ENDDEFINE
>
>
>
> Wenn Du diesen Code als PRG in der Entwicklungsumgebung startest, dann erfolgt die Reaktion wie bereits oben beschrieben über die Statusleiste.
>
> ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
---
> Gruss / Best regards -Tom 010101100100011001010000011110000101001001101111011000110110101101110011
Jörg Schneider
