Page 1 of 1

Eventos en FiveTouch

PostPosted: Sat Apr 15, 2017 7:15 am
by 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
 


Image

Image