Eventos en FiveTouch

[Antonio Linares]

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:

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