Eventos en FiveTouch
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Como FiveTouch usa Harbour QT library, simplemente tienes que hacer:
oControl:Connect( nEvent, { | uParam | MsgInfo( uParam ) } )
en donde nEvents es uno de estos valores:
http://doc.qt.io/qt-4.8/qevent.html
Ejemplo:
![Image](https://bitbucket.org/fivetech/screenshots/downloads/fivetouch_events1.JPG)
![Image](https://bitbucket.org/fivetech/screenshots/downloads/fivetouch_events2.JPG)
oControl:Connect( nEvent, { | uParam | MsgInfo( uParam ) } )
en donde nEvents es uno de estos valores:
http://doc.qt.io/qt-4.8/qevent.html
Ejemplo:
- Code: Select all Expand view
- #include "FiveTouch.ch"
function Main()
local oDlg, oBtnOk, oBtnCancel
DEFINE DIALOG oDlg
oDlg:Connect( 2, { || MsgInfo( "click" ) } )
@ 200, 90 BUTTON oBtnOk PROMPT "Ok" OF oDlg ;
ACTION MsgInfo( "Ok!" )
@ 200, 220 BUTTON oBtnCancel PROMPT "Cancel" OF oDlg ;
ACTION oDlg:End()
ACTIVATE DIALOG oDlg CENTERED
return nil