ich versuche, im GUI mode, einem SLE per SetAppEvent() die F2 Taste
zuzuordnen und zwar dann wenn das SLE den Focus bekommt.
Code: Alles auswählen
::oSLE1 := XbpSLE():new( ::drawingArea, , {52,108}, {80,20}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
::oSLE1:tabStop := .T.
::oSLE1:setInputfocus := {|| SetAppEvent(xbeK_F2, { || PostAppEvent(xbeP_Activate,,,::PB1) } ) }
::oSLE1:KillInputfocus := {|| SetAppEvent(xbeK_F2, { || NIL } )}
::PB1 := XbpPushButton():new( ::drawingArea, , {144,100}, {100,32}, { { XBP_PP_BGCLR, XBPSYSCLR_BUTTONMIDDLE }, { XBP_PP_FGCLR, -58 } } )
::PB1:caption := "Pushbutton"
::PB1:activate := {|| MSGBOX("Hello World") }
...
Code: Alles auswählen
nEvent := AppEvent ( @mp1, @mp2, @oXbp )
IF (bBlock := SetAppEvent(nEvent)) <> NIL
Eval( bBlock, mp1, mp2, oXbp )
ENDIF
jemand eine Idee was verkehrt ist ?
gruss by OHR
Jimmy