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:
oControl:Connect( nEvent, { | uParam | MsgInfo( uParam ) } )
en donde nEvents es uno de estos valores:
http://doc.qt.io/qt-4.8/qevent.html
Ejemplo:
#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