Wie kann die
Hintergrundfarbe geändert werden, wenn der bBrowser den
Fokus erhält?
Wenn der bBrowser den Fokus erhält bzw. verliert, prüft
der bBrowser, ob in seinem Owner die Callback-Methode ControlFocusChange()
definiert ist und ruft diese gegebenenfalls mit einem FocusChangeEvent
auf. In der Callback-Methode kann z.B. die Hintergrundfarbe
des bBrowser geändert werden.
Das folgende Codefragment demonstriert die Vorgehensweise:
|
METHOD ControlFocusChange(oFocusChangeEvent)
CLASS myDataWindow
LOCAL oControl AS OBJECT
oControl := oFocusChangeEvent:Window
IF oFocusChangeEvent:GotFocus
oControl:Background := Brush{Color{COLORYELLOW}}
ELSE
oControl:Background := NULL_OBJECT
ENDIF
|
|